Ответы на вопрос:
23 4 5 6 7 8 9 10 11 12 var m, max: integer; begin writeln('введите последовательность целых чисел, оканчивающуюся нулём'); read(max); repeat read(m); if m=0 then break else if max until false; writeln('max = ',max); end.
Популярно: Информатика
-
Mila1991130.06.2023 10:48
-
zyla2403.01.2022 20:42
-
lollyslacker29.04.2022 03:23
-
EgueneOKSDFSOFK21.03.2021 01:59
-
Irinazpopo08.06.2023 17:45
-
АляК111.07.2022 16:34
-
alex143911.03.2020 02:23
-
Yrbаn09.03.2022 09:53
-
Frienden03.10.2021 09:09
-
austimenko29113.04.2020 07:37