Матрицы. Найти максимальный и минимальный элементы данного массива и поменять их местами - Turbo Pascal

Формулировка задачи:

В TurboPascal 3)Дан двумерный массив размерностью N*M(N и M вводятся с клавиатуры).Найти максимальный и минимальный элементы данного массива и поменять их местами.Произвести вывод данного массива в виде матрицы. Заранее СПАСИБО!!

Код к задаче: «Матрицы. Найти максимальный и минимальный элементы данного массива и поменять их местами - Turbo Pascal»

textual
Var A:array[1..20,1..20] of integer;
    n,m,i,j,max,min,t,r,q,p,o:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во стобцов: ');readln(m);
    max:=-10;min:=10;
    Randomize;
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
        if a[i,j]>max then
         Begin
          max:=a[i,j];
          r:=i;
          q:=j;
         End;
        if a[i,j]<min then
         Begin
          min:=a[i,j];
          p:=i;
          o:=j;
         End;
        End;
       writeln;
      End;
     writeln('Max: ',max);
     writeln('Min: ',min);
     t:=A[r,q];
     A[r,q]:=A[p,o];
     A[p,o]:=t;
     For i:=1 to n do
      Begin
       For j:=1 to n do
        write(A[i,j]:3);
       writeln;
      End;
End.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ