Как вывести индекс массива в данной ? 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