Как вывести номер максимального элемента массива ??? (Паскаль)
я написала программу, чтобы найти максимальный элемент массива, но не знаю, как вывести его индекс
Вот программа по нахождению максимального элемента массива
program ma;
var i,max: integer;
a:array [1..10] of integer;
begin
writeln ('введите массив из 10 элементов');
read (a[1]);
max:=a[1];
for i:= 2 to 10 do
begin
read(a[1]);
if a[1] > max then
max:=a[1];
end;
writeln (max);
end.