Ответы на вопрос:
Var a,m: integer; begin writeln('введите последовательность целых чисел'); m: =0; repeat read(a); if a> m then m: =a; until a=0; writeln(m) end.
Популярно: Информатика
-
ано615.04.2021 20:24
-
sofiagnip21.11.2022 18:38
-
Arina166619.02.2021 01:39
-
vgfhdijubvn14.04.2022 02:49
-
Анц26.02.2021 15:17
-
Санчоs17.06.2022 10:48
-
milka29321.04.2021 03:32
-
WhiteRout29.09.2021 10:41
-
kriton55829.12.2020 05:14
-
RepchatiLuchochek18.05.2021 20:16