На языке Паскаль ввести 4 числа и вывести большее из них
На языке Паскаль ввести 4 числа и вывести большее из них
Гость
Ответ(ы) на вопрос:
ГостьС циклом 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.
Не нашли ответ?
Похожие вопросы