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

Question

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

Comments

если не сложно, клацни лучшеее решение

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.  

Comments

если не правильно понял тебя, напиши - исправлю

---

Можешь мне еще 1 программу в паскале сделать? Буду очень длагодарен

---

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

---

http://znanija.com/task/15469578

---

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

---

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

---

лк