Ответы на вопрос:
Var n,m,k,i,l,max,min: longint; begin max: =-maxlongint; min: =maxlongint; readln(n); for i: =1 to n do begin readln(n); if n> max then max: =n; if n< min then min: =n; end; writeln('самый высокий ',max); writeln('самый низкий ',min); end.
Популярно: Информатика
-
какулькаТВ12.12.2020 15:23
-
Бако77706.11.2022 10:17
-
aizada1422.12.2020 08:14
-
124taafo27.05.2021 04:03
-
2312YQw04.11.2020 10:21
-
alinaby1321.06.2022 14:23
-
peterburg111.09.2020 22:53
-
darya4ern125.05.2023 20:09
-
malboro321.08.2022 02:31
-
Тамирис9125.07.2020 15:34