Обработка числовых массивов - Pascal - Ответ 321088

uses crt;
const n=5;
      m=6;
var a:array[1..n,1..m]of integer;
    i,j,k,x,mn,imn,jmn:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
 writeln;
  end;
mn:=a[1,1]; imn:=1; jmn:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<mn then
   begin
     mn:=a[i,j];  {максимум}
     imn:=i;     {номер строки}
     jmn:=j;      {номер столбца}
   end;
writeln('Min=',mn,'  imin=',imn,'  jmin=',jmn);
{перестановка строк}
for j:=1 to m do
  begin
    x:=a[n,j];
    a[n,j]:=a[imn,j]; {меняем местами элементы последней строки  со строкой, где мин}
    a[imn,j]:=x;
  end;
{перестановка столбцов}
for i:=1 to n do
  begin
    x:=a[i,m];
    a[i,m]:=a[i,jmn];{меняем местами элементы последнего столбца  со столбцом, где мин}
    a[i,jmn]:=x;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

uses crt;
const n=5;
      m=6;
type mas=array[1..n,1..m]of integer;
var a:mas;