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