Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется пока не будет введен ноль) и определение максимального ( наибольшего) из введенных чисел. используйте оператор repeat.
258
395
Ответы на вопрос:
Var max, n: integer; i: integer; begin i: =0; repeat readln(n); if i = 0 then max: =n else if n > max then max: =n; inc(n); until(n = 0); writeln('max = ', max); end.
Популярно: Информатика
-
bazroval31.01.2022 10:35
-
Aidos201108.01.2022 06:24
-
talyaarpaci25.11.2022 21:39
-
Trumpumpum14.02.2021 23:25
-
рута222.11.2021 18:15
-
geamget26.07.2020 11:00
-
даня734598523.06.2023 00:53
-
Максбабич30.04.2020 03:07
-
arsenova27.01.2022 10:50
-
ЕленаЧернова27.07.2021 20:49