Pascal!

Дан массив целых чисел. Проверить, есть ли в нем одинаковые элементы.

Question

Информатика

Сергейка

28 апреля, 05:25

Pascal!

Дан массив целых чисел. Проверить, есть ли в нем одинаковые элементы.

+1

Ответы (1)

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

Анатолий · Answer 1

Var a: array[1 ... 10] of integer;

var i, j, ans:integer;

begin

ans:=0;

for i:=1 to 10 do

begin readln (a[i]) ;

end;

for i:=1 to 10 do

begin

for j:=i+1 to 10 do

begin

if a[i]=a[j] then ans:=ans+1;

end;

end;

if ans>0 then writeln ('есть')

else writeln ('нет') ;

end.

Pascal!Дан массив целых чисел. Проверить, есть ли в нем одинаковые элементы.

Pascal!

Дан массив целых чисел. Проверить, есть ли в нем одинаковые элементы.