4.. .Найти количество элементов, больших 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.
