Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

{$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.