Как вывести индекс массива в данной задаче? program gdiagle ;uses...

Question

Как вывести индекс массива в данной задаче?

program gdiagle ;
uses crt;
var
i,j,max:integer;
a:array[1..5,1..10] of integer;
s:array[1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50);
write (a[i,j],' ' )
end;
writeln
end;
writeln ('');
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
if j=i then
begin
if max
max:=a[i,j];
end;
end;
end;
writeln('Максимум: ', max);
end.

Comments

объясни подробно что надо

---

вывести индекс массива !

---

максимального элемента надо

Answer 1

Нужно сделать отдельную переменную, которая будет запоминать i и j у максимального, а потом их вывести