Ответы на вопрос:
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.
Популярно: Информатика
-
zelenkadi07.10.2020 21:25
-
so4tfx15.12.2021 22:03
-
Влад0081115.02.2021 11:39
-
Fataeh30.09.2022 17:19
-
trixi1989vv20.06.2020 10:17
-
20031003veronika06.04.2022 06:31
-
malafeecheva1705.10.2020 04:17
-
nano103020.05.2022 04:25
-
slayer7521.01.2023 05:17
-
7kotik7myr7myr703.07.2020 15:40