На языке Паскаль ввести 4 числа и вывести большее из них

Question

Информатика

Витеша

27 сентября, 08:38

На языке Паскаль ввести 4 числа и вывести большее из них

+3

Ответы (1)

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

Гораций · Answer 1

С циклом for для натуральных чисел:

var a, i, max:integer;

begin

max:=0;

writeln ('Введите натуральное число') ;

for i:=1 to 4 do

begin

readln (a) ;

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

end;

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

end.