массивы

[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);
end.

[Abstraction]

Что сделать, шеф?

[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);