29.Найти количество элементов, больших 5,

меньших 5 и равных 5 для двух

массивов А(3,5) и В(4,4).

program z29;

uses crt;

type q=array[1..10,1..10] of integer;

var a,b:q;m1,n1,n2,t1,t2,t,r1,r2,r:integer;

procedure VV(k,k1:integer;var x:q);

var i,j:integer;

begin clrscr;

for i:=1 to k do

for j:=1 to k1 do

read (x[i,j]);

end;

procedure KOL(k,k1:integer;x:q;var w,w1,w2:integer);

var i,j:integer;

begin

w:=0;w1:=0;w2:=0;

for i:=1 to k do

for j:=1 to k1 do begin

if x[i,j]>5 then w:=w+1 else

if x[i,j]<5 then w1:=w1+1 else

w2:=w2+1;

end;end;

begin

n1:=3;m1:=5;n2:=4;writeln('vvedite elementy matricy A');

vv(n1,m1,a);writeln('vvedite elemnty matricy B');vv(n2,n2,b);

kol(n1,m1,a,t,t1,t2);kol(n2,n2,b,r,r1,r2);

writeln ('kol >5 dlia A-',t);

writeln ('kol <5 dlia A-',t1);

writeln ('kol =5 dlia A-',t2);

writeln ('kol >5 dlia B-',r);

writeln ('kol <5 dlia B-',r1);

writeln ('kol =5 dlia B-',r2);

readln;readln;end.