Question

ДУЖЕ ТРЕБА!!!!!!!!!!!!!!!!! Створити в середовищі Паскаль програму для обчислення найбільшого серед кількох значень.

Answer 1

program MaxValue;

var

i, n, max: integer;

begin

write('Введіть кількість чисел: ');

readln(n);

write('Введіть ', n, ' чисел: ');

readln(max);

for i := 2 to n do

begin

var current: integer;

readln(current);

if current > max then

begin

max := current;

end;

end;

writeln('Найбільше число: ', max);

end.

Answer 2

program max_value;

var

 n, i, max, x: integer;

begin

 write('Введіть кількість чисел: ');

 readln(n);

 

 write('Введіть перше число: ');

 readln(max);

 

 for i := 2 to n do

 begin

   write('Введіть число ', i, ': ');

   readln(x);

   

   if x > max then

     max := x;

 end;

 

 writeln('Найбільше число: ', max);

end.