Ответы на вопрос:
Begin var n, i: integer; var max, k: real; write('n = '); readln(n); readln(max); for i : = 2 to n do begin readln(k); if (k > max) then max : = k; end; writeln('> ', max); end.
Популярно: Информатика
-
Alina431523.02.2022 13:09
-
хорошист53609.05.2022 01:27
-
iradazlnv10.10.2022 11:45
-
nik18020808.04.2023 19:14
-
terentevvadim3324.09.2020 04:06
-
KeKsickON02.05.2021 17:38
-
валентинка2005.08.2022 15:06
-
nbis200005.04.2022 04:26
-
маря3930.06.2023 05:52
-
romankonev200014.10.2020 19:17