Вводится произвольная последовательность целых чисел. Найти наибольшее из…

Question

69

Вводится произвольная последовательность целых чисел. Найти наибольшее из всехчисел.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

alyubor · Accepted Answer

77

alyubor

16 августа 2022

На паскале-uses crt; var a,b,max: integer; begin writeln ('Вводите последовательность. Окончание последовательности — 0.'); readln (a); max: =a; while a<>0 do begin if (a>max) then max: =a; readln (a); end; writeln ('Наибольшее число последовательности: ',max); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: