Как вывести номер максимального элемента массива ??? (Паскаль)
я написала программу, чтобы найти максимальный элемент массива, но не знаю, как вывести его индекс
Вот программа по нахождению максимального элемента массива
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.
я написала программу, чтобы найти максимальный элемент массива, но не знаю, как вывести его индекс
Вот программа по нахождению максимального элемента массива
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.
More Questions From This User See All
Answers & Comments
Verified answer
{$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.