Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами. (30 балов) (Решение → 5727)

Заказ №38671

Найти наибольший и наименьший элементы прямоугольной матрицы и поменять их местами. (30 балов)

uses crt; var A:array [1..5,1..5] of Integer; i,j,imax,imin,jmax,jmin : Integer; b : Integer; Begin Randomize; imax:=1; jmax:=1; imin:=1; jmin:=1; Writeln('Таблица A='); for i:=1 to 5 do begin for j:=1 to 5 do begin A[i,j]:=Random(50); Переменнные i и j – параметр цикла Переменная а – элементы массива Переменная n – количество 434 write(A[i,j]:6); if A[i,j]>A[imax,jmax] then begin imax:=i; jmax:=j; end; if A[i,j]