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

Question

Информатика

Игуся

6 мая, 08:22

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

+5

Ответы (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.