Дан массив из N целых чисел. Написать программу, определяющую, максимальный элемент массива и его номер.

Сначала в разделе описания переменных описываем все переменные, которые будут использованы в программе, а именно N - количество элементов массива, I - переменная счетчик, max - максимальный элемент массива, k - индекс этого максимального элемента. Далее вводим N с клавиатуры и вводим элементы массива. Сначала залем индекс элемента 1, то есть k=1, а максимальный элемент предполагаем равен первому элементу массива, далее нужно пробежать по всем элементам массива и сравнить их с максимальным, если какой-то элемент больше max, то тогда переменной max присваивается его значение и все остальные элементы сравниваются с ним.

program primer;

var N, i, max, k: integer;

x=array [1 ... N] of integer;

begin

read (N);

for i:=1 to N do

begin

readln (a[i]);

end;

k:=1;

max:=A[1];

for i:=2 to N do

if max
begin

max:=a[i];

k:=i

end;

write ('Маx=', max);

write ('INDEX=', k);

end;

END.