Дано 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