Question

Напишите решение в Паскале: массив А заполнен случайным образом ста целыми числами от 0 до 1000, определить имеются ли в массиве повторяющиеся элементы.

Answer 1

var

a:array[1..100] of integer;

povt,i,j,elem:integer;

begin

povt:=0;

 

randomize;

for i:=1 to 100 do

a[i]:=random(1001);

 

for j:=1 to 100 do

povt:=0;

 

begin

for i:=1 to 100 do

if a[i]=a[j] then

begin

elem:=a[i];

povt:=povt+1;

 

end; 

 

povt:=povt-1;

write('Число= '+elem+ ' Количество повторений= '+ povt);

end;