как удалить одиннаковые элементы в массиве?

[-ushёl-]

подскажите как удаляются повторяющиеся элементы массива?любой ваш пример...

[Sazary]

uses crt;
var
a : array[1..10] of integer = (1,2,3,4,4,2,1,5,7,2);
i,j,k,n : integer;

begin
clrscr;
n := 10; { размер массива }

for i:=1 to n do
 write(a[i]:4);
writeln;

i := 2;
while i<=n do
 begin
 for j:=1 to i-1 do
  if a[i]=a[j] then
   begin
   dec(n);
   for k:=i to n do
    a[k] := a[k+1];
   dec(i);
   break;
   end;
inc(i);
end;

for i:=1 to n do
 write(a[i]:4);

readln;
end.

[-ushёl-]

а если массив заполнен произвольными числами?допустим random(100)... как тогда удалить повторяющиеся элементы?

[Sazary]

а если массив заполнен произвольными числами?допустим random(100)... как тогда удалить повторяющиеся элементы?

Также. Какая разница чем он заполнен?

[-ushёl-]

на выходе одни нули.

var
a:array[1..10]of integer;
i,j,k,n:integer;

begin
n := 10; { размер массива }

for i:=1 to n do
write(a[i]:4);
writeln;

i := 2;
while i<=n do
begin
for j:=1 to i-1 do
if a[i]=a[j] then
begin
dec(n);
for k:=i to n do
a[k] := a[k+1];
dec(i);
break;
end;
inc(i);
end;

for i:=1 to n do
write(a[i]:4);

readln;
end.

[-ushёl-]

Целочисленную таблицу из n элементов переписать так,чтобы вместо одинаковых идущих подряд элементов оставался только один.Остаток таблицы заполняется нулями.

[-ushёl-]

Это так звучит задача)

[Sazary]

А массив кто вводить будет?

[__STDC__]

вот мой извращенный вариант =) :

const 
	n = 10;
	m = 5;
	
type
	arr = array[1..n] of integer;

procedure fill_arr(var X:arr);
var
	i:integer;
begin
	randomize;
	for i:=1 to n do
		X[i] := random(m);
end;

procedure unique(var X:arr);
var 
	i,j:integer;
	y:set of byte;
begin
	y := [];
	for i:=1 to n do begin
		y := y + [X[i]];
		X[i] := 0;
	end;
	j := 1;
	for i:=1 to m do 
		if (i in y) then begin
			X[j] := i;
			inc(j);
		end;
end;

procedure out_arr(X:arr);
var
	i:integer;
begin
	for i:=1 to n do
		write(X[i]:3);
end;

var 
	X:arr;
begin
	fill_arr(X);
	out_arr(X);
	unique(X);
	writeln;
	out_arr(X);
	readln;
end.

***
во втором for в процедуре unique под if можно еще запихнуть if (j = n) then exit; и все будет хорошо)

[-ushёl-]

const
n=10;
var
a:array[1..10]of integer;
i,j,k,u:integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln;
i := 2;
while i<=n do
begin
for j:=1 to i-1 do
if a[i]=a[j] then
begin
u:=n;
dec(u);
for k:=i to n do
a[k] := a[k+1];{сдесь коппл выдаёт ошибку"индекс находиться вне границ массива"}
dec(i);
break;
end;
inc(i);
end;

for i:=1 to n do
write(a[i]:4);
readln;
end.