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.

10 Вариант.

В матрице А(4 строки, 3 столбца) поменять местами наибольшие элементы в первом и третьем столбцах.

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

Program z10;

const n=4;m=3;

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

var max1,max2,i,j:integer;

A:matr;

max:real;

Procedure maximum(var max:integer;A:matr;j:integer);

var i:integer;

mx:real;

begin

max:=1;

mx:=A[1,j];

for i:=1 to n do

if A[i,j]>mx then begin

max:=i;

mx:=A[i,j];

end;

end;

begin

for i:=1 to n do

for j:=1 to m do

readln(A[i,j]);

maximum(max1,A,1);

maximum(max2,A,3);

max:=A[max1,1];

A[max1,1]:=A[max2,3];

A[max2,3]:=max;

for i:=1 to n do

for j:=1 to m do

writeln(A[i,j]);

end.