Напечатать индексы минимального элемента побочной диагонали матрицы W(20,20).

const
  n=20;
type
  arr=array[1..n,1..n] of integer;
var
  a:arr;
  i,j,imin,jmin:integer;
begin
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=random(21);
        write(a[i,j]:3);
        if j=n then
          writeln;
      end;
  writeln;
  imin:=1;jmin:=n;
  for i:=2 to n do
    begin
      j:=n-i+1;
      if a[i,j]<a[imin,jmin] then
        begin
          imin:=i;
          jmin:=j;
        end;
    end;
  writeln('Indeksy min el. pobochnoi diag.[',imin,',',jmin,']');
end.

const
  nmax=20;
type
  Tmatr=array[1..nmax,1..nmax] of integer;
var
  d,e:Tmatr;
  i,j:integer;
procedure CreateMatrix(var x:Tmatr;size_n,size_m:integer);
var
  i,j:integer;
begin
  randomize;
  for i:=1 to size_n do
    for j:=1 to size_m do
     x[i,j]:=random(99);
end;
procedure PrintMatrix(x:Tmatr;size_n,size_m:integer;name:char);
var
  i,j:integer;
begin
  writeln('Matritsa ',name);
  for i:=1 to size_n do
    for j:=1 to size_m do 
      begin
        write(x[i,j]:3);
        if j=size_m then
          writeln;
      end;
end;
procedure ChangeMatrix(var x:Tmatr;size_n,size_m:integer);
var
  i,j,imax:integer;
begin
  for j:=1 to size_m do
    begin
      imax:=1;
      for i:=2 to size_n do
        if x[i,j]>x[imax,j] then
          imax:=i;
      x[imax,j]:=1;
    end;
end;
begin
  CreateMatrix(d,8,10);
  PrintMatrix(d,8,10,'D');
  ChangeMatrix(d,8,10);
  writeln('Posle izmeneniya');
  PrintMatrix(d,8,10,'D');
  writeln('Press enter to continue...');
  readln;
  CreateMatrix(e,16,20);
  PrintMatrix(e,16,20,'E');
  ChangeMatrix(e,16,20);
  writeln('Posle izmeneniya');
  PrintMatrix(e,16,20,'E');
end.