Регистрация
bolll4
05.11.2021 02:41
Информатика
Есть ответ 👍

Программирование по информатике с клавиатуры вводится последовательность чисел не превышающих 10000. найти и вывести максимальное положительное число. напишите программу на языке паскаль

299
493
Посмотреть ответы 2

Ответы на вопрос:

lyaman2005
lyaman2005
4,4(59 оценок)
Var a,amax: integer; begin writeln('введите положительное  число'); read(a); amax: =a; while a< > 0 do begin if (a> amax) and (a> 0)  then amax: =a; read(a); end; writeln('максимальное число равно ',amax); end.
Ннемо
Ннемо
4,7(96 оценок)
Информации. это связано с тем, что модель строится для отображения не всех свойств объекта, а только нужных.

Популярно: Информатика