Ответы на вопрос:
Program n1; var a,min,max,i,n: integer; begin readln(n); readln(a); min: =a; max: =a; for i: =2 to n do begin readln(a); if a> max then max: =a; if a< min then min: =a; end; writeln('min=',min); write('max=',max); end.
Популярно: Информатика
-
Аня878505.02.2022 03:22
-
AlinaVoronova24.09.2020 18:02
-
KsushaTrefilova13.10.2020 17:37
-
loopootoonoo10.12.2022 06:41
-
serbinaluba66cet08.11.2021 08:22
-
Лиза2209200411.08.2020 18:51
-
KultchiK14.11.2022 13:52
-
СашаЩербина15.04.2023 13:58
-
1234567890Плюша22.08.2020 17:43
-
эрж105.05.2021 07:06