Question

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

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.