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

Ответы

Ответ дал: miNiFF1st
0
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.  
Ответ дал: miNiFF1st
0
давай новым вопросом и сюда ссылку
Ответ дал: freeSkoM
0
http://znanija.com/task/15469578
Ответ дал: miNiFF1st
0
щас сделаю, клацни плз лучшее решение))
Ответ дал: freeSkoM
0
Пока что нельзя, должно пройти опр. время
Ответ дал: miNiFF1st
0
лк
Похожие вопросы