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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.