Найти большее из четырёх чисел в Паскале (составить программу)

Question

Информатика

Пантелеймон

23 декабря, 20:18

Найти большее из четырёх чисел в Паскале (составить программу)

+2

Ответы (1)

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

Ведя · Answer 1

Program Sample;

const n = 4;

var i, maxValue, inpValue: integer;

begin

maxValue : = low (maxValue) ;

for i : = 1 to n do

begin Write ('Введите число: ') ;

ReadLn (inpValue) ;

if maxValue < inpValue then

maxValue : = inpValue;

end;

WriteLn ('Максимальное из ', n, ' чисел равно ', maxValue) ;

end.