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

Question

Информатика

Мстислав

21 сентября, 09:13

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

+4

Ответы (1)

Знаете ответ на вопрос?

Аникитка · Answer 1

На паскале

---

uses crt;

var a, b, max: integer;

begin

writeln ('Вводите последовательность. Окончание последовательности - 0.') ;

readln (a) ;

max:=a;

while a0 do begin

if (a>max) then max:=a;

readln (a) ;

end;

writeln ('Наибольшее число последовательности: ', max) ;

end.