Помогите составить программу

максимальное число из пяти чисел

Question

Информатика

Фессалоникия

5 марта, 17:28

Помогите составить программу

максимальное число из пяти чисел

+3

Ответы (1)

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

Марлена · Answer 1

Var max, a:integer;

i:byte;

begin

max:=-32625;

i:=1;

while i<6 do

begin

writeln ('Введи ', i, ' число') ;

readln (a) ;

if a>max then max:=a;

i:=i+1;

end;

writeln ('Максимально число ', max) ;

end.

Помогите составить программумаксимальное число из пяти чисел

Помогите составить программу

максимальное число из пяти чисел