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

Question

Информатика

Артем

13 сентября, 20:16

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

+2

Ответы (1)

Знаете ответ на вопрос?

Светланка · 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;