20 Вариант.

Для каждой из двух матриц: А(2 строки, 4 столбца)и В(3 строки, 3 столбца) определить номер того столбца, в котором среднее арифметическое значений его элементов минимально.

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

Program z20;

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

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

var i,j,k1,k2:integer;

A,B:matr;

Procedure stolbec(A:matr;var k:integer;l1,l2:integer);

var i,j:integer;

sa,min:real;

begin

min:=100;{здесь должно быть максимальное число}

k:=0;

for j:=1 to l2 do begin

sa:=0;

for i:=1 to l1 do

sa:=sa+A[i,j];

sa:=sa/l1;

if sa<min then begin

min:=sa;

k:=j;

end;

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

stolbec(A,k1,n,m);

stolbec(B,k2,l,l);

writeln(k1,k2);

end.

21 Вариант.

На основе матрицы А(4 строки, 5 столбцов) сформировать одномерный массив В из 5 элементов, каждый элемент которого принимает значение 1, если в соответствующем по номеру столбце матрицы А элементы расположены в порядке возрастания их значений, и значение 0 в противном случае.

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

Program z21;

const n=4; m=5;

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

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

var i,j:integer;

A:matr;

B:mas;

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

var i,k:integer;

begin

k:=0;

for i:=1 to n-1 do

if A[i,j]<A[i+1,j] then

k:=k+1;

if k=n-1 then

B[j]:=1

else

B[j]:=0;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

for j:=1 to m do

vozrastanie(B,A,j);

for i:=1 to m do

writeln(B[i]);

end.

22 Вариант.

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

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

Program z22;

const n=4;

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

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

var i,j:integer;

A:matr;

B:mas;

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

var i,k:integer;

begin

k:=0;

for i:=1 to n do

if A[i,j]=0 then

k:=1;

if k=1 then

B[j]:=0

else

B[j]:=1;

end;

begin

for i:=1 to n do

for j:=1 to n do

readln(A[i,j]);

for j:=1 to n do

nol(B,A,j);

for i:=1 to n do

writeln(B[i]);

end.