C помощью оператора REPEAT составьте программу, определяющую максимальное из всех введенных вами чисел. (Признаком конца ввода чисел являетс
Условие задачи:C помощью оператора REPEAT составьте программу, определяющую максимальное из всех введенных вами чисел. (Признаком конца ввода чисел является введенное число 0)
Program PascalGuru;
var x,max: real; i:integer; Begin i:=0;
repeat inc(i); write('Vvedite ',i,' cislo: '); readln(x); if i=1 then max:=x; if (i>1) and (x>max) then max:=x;