Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется пока не будет введен ноль) и определение максимального (наибольшего) из введенных чисел. И составить блок схему

Question

28 февраля, 19:22

+4

Ответы (1)

Знаешь ответ на этот вопрос?

София Назарова · Answer 1

var max, a : integer; begin readln (a); max : = a; repeat readln (a); if (a > max) and (a 0) then max : = a; until a = 0; writeln (max); readln; end.