program massiv;
var a:array [1..10,1..10] of integer;
i,j,k,l,max:integer;
s:real;
begin
writeln('Massivti engiz');
for i:=1 to 10 do
for j:=1 to 10 do
begin
readln ( a [ i , j ]);
end;
s:=0;k:=0;
max:=a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
begin
if a[i,10-j+1]>max then
begin
max:=a[i,j];
k:=i;l:=j;
end;
end;
writeln('максимальный элемент: ', max);
writeln('Индекс элемента: ', a[k,l]);
end.
