Question

Створити в середовищі Паскаль програму для обчислення найбільшого серед кількох значень.

Answer 1

program maxNumber;

var

n, i, max: integer;

begin

writeln('Enter the number of values:');

readln(n);

writeln('Enter the values:');

readln(max);

for i := 2 to n do

begin

var num: integer;

readln(num);

if num > max then

max := num;

end;

writeln('The maximum value is ', max);

end.