uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,mini,minj,maxi,maxj,:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-50+random(100);
write(a[i,j]:4);
end;
writeln;
end;
mini:=1;
minj:=1;
maxi:=2;
maxj:=2;
for i:=1 to n do for j:=1 to n do
if a[i,j]<=a[mini,minj] then
begin
mini:=i;
minj:=j;
end else if a[i,j]>a[maxi,maxj] then
begin
maxi:=i;
maxj:=j;
end
writeln('MIN = A[',mini,' ',minj,']=',a[mini,minj]);
writeln('MAX = A[',maxi,' ',maxj,']=',a[maxi,maxj]);
writeln('Преобразовнная матрица');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=0;
write(a[i,j],' ');
writeln;
end;
readln;
end.