Как вывести номер максимального элемента массива ??? (Паскаль) я написала программу,...

Question

Как вывести номер максимального элемента массива ??? (Паскаль)
я написала программу, чтобы найти максимальный элемент массива, но не знаю, как вывести его индекс
Вот программа по нахождению максимального элемента массива
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.

Comments

5 мин

---

мне в эту программу нужно дописать действия по нахождению номера максимального элемента массива

---

А эта задача делает тоже самое, кинь мою

---

она рабочая

Answer 1

{$mode delphi}
Var a,b,c,d,e:integer;
begin;
d:=-999;
read(a);
for b:=1 to a do
  begin 
read(c); 
if c>d then   
begin 
 d:=c; 
 e:=b; 
 end;
end;
writeln(e);
end.

Comments

Вот