7 Вариант.

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

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

Program z7;

const n=5;m=4;

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

var k1,k2,i,j:integer;

A:matr;

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

Var I,j:integer;

begin

k:=0;

for i:=1 to n do

for j:=l1 to l2 do

if A[i,j]=0 then

k:=k+1;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

nol(k1,A,1,trunc(m/2));

nol(k2,A,trunc(m/2)+1,m);

if k1>k2 then

writeln('bolshe v levoi')

else

if k1=k2 then

writeln('odinakovo')

else

writeln('bolshe v pravoi');

end.

8 Вариант.

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

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

Program z8;

const n=4;m=5;

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

var k1,k2,i,j:integer;

A:matr;

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

Var I,j:integer;

begin

k:=0;

for i:=l1 to l2 do

for j:=1 to m do

if A[i,j]=0 then

k:=k+1;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

nol(k1,A,1,trunc(n/2));

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

if k1>k2 then

writeln('bolshe v verhnei')

else

if k1=k2 then

writeln('odinakovo')

else

writeln('bolshe v nijnei');

end.

9 Вариант.

Для двух матриц: А(3 строки, 6 столбцов)и В(3 строки, 3 столбца) определить, в какой из них больше нулевых элементов. Вывести одно из сообщений: «больше в А», «больше в В» или «одинаково»).

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

Program z9;

const n=3;m=6;

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

var k1,k2,i,j:integer;

A,B:matr;

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

Var I,j:integer;

begin

k:=0;

for i:=1 to l1 do

for j:=1 to l2 do

if A[i,j]=0 then

k:=k+1;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

for i:=1 to n do

for j:=1 to n do

readln(B[i,j]);

nol(k1,A,n,m);

nol(k2,B,n,n);

if k1>k2 then

writeln('bolshe v A')

else

if k1=k2 then

writeln('odinakovo')

else

writeln('bolshe v B');

end.