Напишите программу, которая в последовательности целых чисел определяет максимальное число. программа получает на вход целые числа, количество введенных чисел неизвестно. последовательность числа заканчивается числом 0. количество чисел не превышает 1000. введённые числа по модулю не превышает 30000. программа должна вывести одно максимальное число.

212

351

Посмотреть ответы 2

Ответы на вопрос:

мирали3

Информатика

4,5(15 оценок)

Var max, n: integer; begin max : = -30000; read(n); while n < > 0 do begin if n > max then max : = n; read(n); end; write(max); end.

sunlight2

Информатика

4,7(66 оценок)

888,885,858,855,588,585,558,555

150 000+ пользователей

Оформить подписку