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

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

http://znanija.com/task/15469578

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

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

лк

var a: array[1..10] of integer;var i, j, ans:integer;beginans:=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.