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);

var i:integer;

mn:real;

begin

mini:=1;

mn:=A[1,1];

for i:=1 to k do

if A[i,i]<mn then begin

mini:=i;

mn:=A[i,i];

end;

end;

begin

for i:=1 to n do

for j:=1 to n do

readln(A[i,j]);

for i:=1 to m do

for j:=1 to m do

readln(B[i,j]);

minimum(mini1,A,n);

minimum(mini2,B,m);

min:=A[mini1,mini1];

A[mini1,mini1]:=B[mini2,mini2];

B[mini2,mini2]:=min;

for i:=1 to n do

for j:=1 to n do

writeln(A[i,j]);

for i:=1 to m do

for j:=1 to m do

writeln(B[i,j]);

end.

16 Вариант.

В каждой из матриц: А(3 строки, 4 столбца) и В(5 строк, 5 столбцов) поменять местами две строки: в матрице А-строки 2 и 3, в матрице В-строки 2 и 4.

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

Program z16;

const n=3;m=4;l=5;

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

var i,j:integer;

A,B:matr;

Procedure obmen(var A:matr;k,k1,k2:integer);

var j:integer;

el:real;

begin

for j:=1 to k do begin

el:=A[k1,j];

a[k1,j]:=a[k2,j];

a[k2,j]:=el;

end;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

for i:=1 to l do

for j:=1 to l do

readln(B[i,j]);

obmen(A,m,2,3);

obmen(B,l,2,4);

for i:=1 to n do

for j:=1 to m do

writeln(A[i,j]);

for i:=1 to l do

for j:=1 to l do

writeln(B[i,j]);

end.