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

Question

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

Гость

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

Accepted Answer

var a, max: integer; begin read(a); max:=a; repeat read(a); If a>max then max:=a; until a<>0; writeln(max); end.