Ответы на вопрос:
program prog;
var
n,min,a,i: integer;
begin
readln(n);
readln(a);
min: =a;
for i: =2 to n do
begin
readln (a);
if a< min then min: =a;
end;
writeln(min);
end.
Популярно: Информатика
-
orenet04.10.2021 09:28
-
Daryanaa711.02.2022 13:46
-
Артём200670605.04.2023 06:18
-
alese4kas94p0cen010.02.2022 05:27
-
pak200525.12.2020 13:13
-
Trollyz30.05.2023 12:51
-
alieismailova122.03.2022 14:33
-
Macsoneo27.03.2022 06:13
-
mysya403.01.2022 01:11
-
stupidgirl324.02.2020 10:57