Написать программу, которая в одновременном массиве заданным вводом данных с клавиатуры находит индекс максимального элемента массива. На языке Pascal.

Var n, i, max:integer;

a:array [1 ... 1000] of integer; //объявляем массив

begin

writeln ('Введите количество чисел') ;

readln (n) ;

for i:=1 to n do begin

readln (a[i]) ;

if a[i]>max then

max:=i;

end;

writeln ('Индекс максимального элемента массива = ', max) ;

end.