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.

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;