Question

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

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.  

Answer 2

давай новым вопросом и сюда ссылку

Answer 3

http://znanija.com/task/15469578

Answer 4

щас сделаю, клацни плз лучшее решение))

Answer 5

Пока что нельзя, должно пройти опр. время

Answer 6

лк