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