Дано N чисел, написать программный код в паскале абц, которая находит номер самого...

Question

Дано N чисел, написать программный код в паскале абц, которая находит номер самого большого числа в последовательности.

Answer 1

Const
  N = 10;

var
  i, k, max: integer;
  a: array[1..N] of integer;

begin
  Writeln('Исходные данные');
  Randomize;
  for i := 1 to N do
  begin
    k := random(100) - 50;
    a[i] := k;
    write(k:4)
  end;
  writeln;
  max := -32768; //меньше не бывает
  for i := 1 to N do
    if max < a[i] then max := a[i];
  writeln('Максимальное из чисел равно ', max)
end.

Тестовый пример:

Исходные данные
  39 -42  -3   3 -37 -32  25  43  24 -17
Максимальное из чисел равно 43