ТутРешу.Ру

СРОЧНО! Составьте программу…

Задание:

СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концомввода чисел является введенное число 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.




Знаете другой ответ?

Отправить свой ответ