Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел неограниченное кол-во. Решать через repeat

Question

Информатика

Ефросиньюшка

19 июня, 22:08

Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел неограниченное кол-во. Решать через repeat

+5

Ответы (1)

Знаете ответ?

Нонна · Answer 1

Program abrakadabra;

var a, b, max:integer;

Begin

repeat

readln (a) ;

readln (b) ;

if a > = b then max:=a

else max:=b;

until a = 0;

writeln (max) ;

readln () ;

End.