17 Вариант.

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

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

Program z17;

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 i:integer;

el:real;

begin

for i:=1 to k do begin

el:=A[i,k1];

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

a[i,k2]:=el;

end;

end;

begin

for i:=1 to l do

for j:=1 to m do

readln(A[i,j]);

for i:=1 to m do

for j:=1 to n do

readln(B[i,j]);

obmen(A,l,2,4);

obmen(B,m,2,3);

for i:=1 to l do

for j:=1 to m do

writeln(A[i,j]);

for i:=1 to m do

for j:=1 to n do

writeln(B[i,j]);

end.

18 Вариант.

На основе матрицы А(4 строки, 5 столбцов) сформировать одномерный массив В из 5 элементов. Каждый элемент В_k этого массива получает значение, равное полусумме значений наибольшего и наименьшего элементов в k-ом столбце матрицы А.

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

Program z18;

const n=4; m=5;

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

mas=array [1..m] of real;

var i,j:integer;

A:matr;

B:mas;

Procedure polysumm(var B:mas;A:matr;j:integer);

var i:integer;

min,max:real;

begin

min:=A[1,j];

max:=A[1,j];

for i:=1 to n do begin

if min>A[i,j] then

min:=A[i,j];

if max<A[i,j] then

max:=A[i,j]; end;

B[j]:=(min+max)/2;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

for j:=1 to m do

polysumm(B,A,j);

for i:=1 to m do

writeln(B[i]);

end.

19 Вариант.

На основе матрицы А(4 строки, 4 столбца) сформировать одномерный массив В из 4 элементов. Каждый элемент В_k этого массива получает значение, равное абсолютной величине разности значений элемента гланой диагонали и наименьшего элемента в k-ой строке матрицы А.

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

Program z19;

const n=4;

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

mas=array [1..n] of real;

var i,j:integer;

A:matr;

B:mas;

Procedure znachenie(var B:mas;A:matr;i:integer);

var j:integer;

min:real;

begin

min:=A[i,1];

for j:=1 to n do

if min>A[i,j] then

min:=A[i,j];

B[i]:=abs(A[i,i]-min);

end;

begin

for i:=1 to n do

for j:=1 to n do

readln(A[i,j]);

for i:=1 to n do

znachenie(B,A,i);

for i:=1 to n do

writeln(B[i]);

end.