Question

Дано N и n чисел, вывести все предыдущие числа до максимального.

Answer 1

program N64224785;

var n, i, imax:integer;

x, max:real;

begin

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

readln(n);

for i := 1 to n do

begin

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

 readln(x);

    if (i = 1) or (x > max) then

    begin

      max := x;

      imax := i

    end

  end;

  write('Первое максимальное число ',max:0:2,' с номером ',imax);

  readln

end.