Напишите программу в которой осуществляется ввод целых чисел ввод осуществляется до тех пор пока не будет введен 0 и Определение максимального числа наибольшее сведенных чисел используется оператор repeat

9 Мар 2020 в 19:42
210 +1
0
Ответы
1

var a,max: integer;

begin

readln(max);

repeat

readln(a);

if a>max then max:=a;

until a=0;

writeln(max);

end.

18 Мар 2020 в 04:34
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир