26 Вариант.

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

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

Program z26;

const n=5;

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

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

var i,j:integer;

A:matr;

B:mas;

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

var j:integer;

begin

B[i]:=0;

for j:=1 to n do

if A[i,j]>A[i,i] then

B[i]:=1;

end;

begin

for i:=1 to n do

for j:=1 to n do

readln(A[i,j]);

for i:=1 to n do

bolshe(B,A,i);

for i:=1 to n do

writeln(B[i]);

end.

27 Вариант.

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

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

Program z27;

const n=5;

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

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

var i,j:integer;

A:matr;

B:mas;

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

var i:integer;

begin

B[j]:=1;

for i:=1 to n do

if A[i,j]>A[j,j] then

B[j]:=0;

end;

begin

for i:=1 to n do

for j:=1 to n do

readln(A[i,j]);

for j:=1 to n do

prevish(B,A,j);

for i:=1 to n do

writeln(B[i]);

end.

28 Вариант.

Для матрицы А(4 строки, 5 столбцов) для каждой её половины(верхней и нижней) вычислить и вывести количество положительных(больше 0) элементов. Также определить, в какой из этих половин среднее арифметическое значение прочих элементов имеет большую величину (вывести одно из сообщений «больше в верхней», «больше в нижней» или «одинаково»).

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

Program z28;

const n=4; m=5;

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

var i,j,k1,k2:integer;

A:matr;

s1,s2:real;

Procedure vich(var k:integer;A:matr;l1,l2:integer;var s:real);

var i,j,k1:integer;

begin

k:=0;

s:=0;

for i:=l1 to l2 do

for j:=1 to m do

if A[i,j]>0 then

k:=k+1

else begin

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

k1:=k1+1;

end;

if k1<>0 then

s:=s/k1;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

vich(k1,A,1,trunc(n/2),s1);

vich(k2,A,trunc(n/2)+1,n,s2);

writeln(k1);

writeln(k2);

if s1>s2 then

writeln('bolshe v verhnei')

else

if s1=s2 then

writeln('odinakovo')

else

writeln('bolshe v nijnei');

end.