Составьте программу, определяющую максимальное из всех вводимых вами чисел. на ABC паскале, пожалуйста, кто сможет?
Составьте программу, определяющую максимальное из всех вводимых вами чисел.
на ABC паскале, пожалуйста, кто сможет?
Гость
Ответ(ы) на вопрос:
ГостьProgram Pr1;
uses crt;
var max,a:integer;
Begin
clrscr;
max:=0;a:=1;
while a<>0 do begin
readln(a);
if a>max then max:=a;
end;
writeln(max);
end.
Не нашли ответ?
Похожие вопросы