Массив (Паскаль)

[finito_solo]

Дан одномерный массив состоящий из чисел. Вывести данный массив на экран исключая вывод повторных элементов

[kiborrgg]

Сообщение от finito_solo

Дан одномерный массив состоящий из чисел. Вывести данный массив на экран исключая вывод повторных элементов

Пробывали делать?

[finito_solo]

Сообщение от kiborrgg

Пробывали делать?

нет...прошу кого-нибудь помочь сделать.

[Stilet]

Я помогу тебе кодом.

var a:array[1..10] of integer;i,j:integer;b:array[1..10] of boolean;
begin
 for i:=1 to 10 do begin
   a[i]:=random(10);b[i]:=true;write(a[i]:5);
   for j:=(i-1) downto 1 do
    if a[i]=a[j] then begin b[i]:=false;break;end;
 end;
 writeln;
 for i:=1 to 10 do   if b[i] then write(a[i]:5);
 end.

Тут единственный недочет. Какой? Это тебе предстоит узнать самому, несмотря на то что программа полностью рабочая. Вот ее результат:

0 0 8 2 2 6 3 1 3 4
0 8 2 6 3 1 4

[finito_solo]

Сообщение от Stilet

Тут единственный недочет. Какой? Это тебе предстоит узнать самому, несмотря на то что программа полностью рабочая.

подвох в том что массив ограничен?