Написать программу в паскале, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением.
madoleh
2
17.05.2019 14:40
1
Другие вопросы по теме Информатика
GGG1771
15.04.2020 12:54
psheni4nayaLiza
07.04.2020 05:04
shebkoch
07.04.2020 05:05
какашка3748
05.05.2021 12:13
Mery0323
05.05.2021 12:14
astrapolina
27.01.2021 00:09
alexrukek
27.01.2021 00:09
DiMOn4iK25
27.05.2019 06:50
Популярные вопросы
- Какие особенности устройства китайских городов сохранились до наших дней...
3 - Что такое робинзонадо ? ( скажите нормальным ответом )...
1 - A^2-b^2+4a+4 разложите на множители...
3 - 18 определите вид взаимоотношений: «насекомое опылитель – цветок» 1) хищничество...
1 - Отгадайте загадки. 1.хорошо видит,а слепой. 2.круглой,а не месяц,желто,а не...
3 - Катя собрала с одной грядки 9 клубничек а с другой 7 клубничек сколько всего...
3 - Товарный поезд двигался со скоростью 40 км в час был в пути 3 какое расстояние...
3 - 60% учащихся класса получили четвёрку за самостоятельную работу.сколько учащихся...
1 - Вкаком предложении союз связывает однородные члены предложения 1) мы потерялись...
3 - На ремонт кабинета по смете было выделено 5500 рублей, но было израсходовано...
2
var a:array [1..100] of integer;
n,i,j:integer;
f:boolean;
BEGIN
read(n);
f:=false;
for i := 1 to n do begin
readln(a[i]);
for j:= 1 to i-1 do
f=f or (a[i]=a[j]);
end;
writeln(f);
END.