13 Вариант.

В матрице А(3 строки, 4 столбца) поменять местами наименьшие элементы в её левой и правой половинах.

Для поиска индексов наименьшего элемента в произвольной части матрицы использовать процедуру.

Program z13;

const n=3;m=4;

type matr=array [1..n,1..m] of real;

var mini1,mini2,minj1,minj2,i,j:integer;

A:matr;

min:real;

Procedure minimum(var mini:integer;var minj:integer;A:matr;l1:integer;l2:integer);

Var I:integer;

mn:real;

begin

mini:=1;

minj:=1;

mn:=A[1,1];

for j:=l1 to l2 do

for i:=1 to n do

if A[i,j]<mn then begin

mini:=i;

minj:=j;

mn:=A[i,j];

end;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

minimum(mini1,minj1,A,1,trunc(m/2));

minimum(mini2,minj2,A,trunc(m/2)+1,m);

min:=A[mini1,minj1];

A[mini1,minj1]:=A[mini2,minj2];

A[mini2,minj2]:=min;

for i:=1 to n do

for j:=1 to m do

writeln(A[i,j]);

end.

14 Вариант.

В двух матрицах А(3 строки, 3 столбца)и В(3 строки, 4 столбца) поменять местами наибольшие элементы.

Для поиска индексов наибольшего элемента в матрице использовать процедуру.

Program z14;

const n=3;m=4;

type matr=array [1..n,1..m] of real;

var maxi1,maxi2,maxj1,maxj2,i,j:integer;

B,A:matr;

max:real;

Procedure maximum(var maxi:integer;var maxj:integer;A:matr;l1:integer;l2:integer);

Var I,j:integer;

mx:real;

begin

maxi:=1;

maxj:=1;

mx:=A[1,1];

for i:=1 to l1 do

for j:=1 to l2 do

if A[i,j]>mx then begin

maxi:=i;

maxj:=j;

mx:=A[i,j];

end;

end;

begin

for i:=1 to n do

for j:=1 to n do

readln(A[i,j]);

for i:=1 to n do

for j:=1 to m do

readln(B[i,j]);

maximum(maxi1,maxj1,A,n,n);

maximum(maxi2,maxj2,B,n,m);

max:=A[maxi1,maxj1];

A[maxi1,maxj1]:=B[maxi2,maxj2];

B[maxi2,maxj2]:=max;

for i:=1 to n do

for j:=1 to n do

writeln(A[i,j]);

for i:=1 to n do

for j:=1 to m do

writeln(B[i,j]);

end.

15 Вариант.

В двух матрицах А(3 строки, 3 столбца)и В(4 строки, 4 столбца) поменять местами наименьшие элементы в их главных диагоналях.

Для поиска индексов наибольшего элемента в главной диагонали матрицы использовать процедуру.

Program z15;

const n=3;m=4;

type matr=array [1..m,1..m] of real;

var mini1,mini2,i,j:integer;

A,B:matr;

min:real;

Procedure minimum(var mini:integer;A:matr;k:integer);