Одномерный массив

[rrrrrrrrrrrrrrrrrr]

нужно еще организовать новый массив(см. условие задачи) пожалуйста напишите к 10 ноября к обеду

Program LAB1;{Подсчитать количество различных чисел, встречающихся в массиве
 A[1..N] Повторяющиеся числа учитываются один раз. Организовать новый массив из
 этих чисел}
 uses crt;    const n=20;
 var a,b:array[1..n] of integer;
 i,j,k,kol:integer;
 begin clrscr;
 randomize;
 for i:=1 to n do begin
 a[i]:=random(100);
 write (a[i],' ');
 end;
k:= 1;
 for i:= 1 to n-1 do
   begin
    j:= i + 1;
      while (j <= n) and (a[i] <> a[j]) do
      inc(j);
      if j = n + 1 then inc(k)
       {учитываем элемент, когда встретили
       его в последний раз}
      end;
   writeln('Количество различных чисел:',k);
   readln(k);

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[raxp]

ага

пожалуйста напишите к 10 ноября к обеду

вам по московскому времени или гринвичу? Можно написать тут прямо в теме или у себя на листике дома?

[rrrrrrrrrrrrrrrrrr]

по московскому. прямо сюда в тему

[Op1nG.Spark]

пожалуйста напишите к 10 ноября к обеду

LOL