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