program matrix;
Var a: array[1..6, 1..6] of real;
    b: array[1..6, 1..6] of real;
    c: array[1..6, 1..6] of real;
      i, j, n, m, q, p, o, l, g, h: integer;
      t, s:real;
begin
g:=1;{ne4etnie stroki}
h:=1;{4etnie stroki}
t:=0.5;{4islo, iz DANO dla opredeleniz <>}
Write('CTPOKI'); Readln(m);
Write('STOLBCI'); Readln(n);
writeln('vvedite massiv A:');
o:=0;
For i:=1 to m do{Cikl zapolnenija matrici}
For j:=1 to n do
   begin
   write('a[',i: 2,',',j: 2,']', '=');
   read(a[i, j]);
   if a[i,j]<t then o:=o+1{s4etcik elementov<0,5 dla A}
   end;
   For i:=1 to m do {vivod matrici A}
   begin
   writeln;
   For j:=1 to n do
   begin
   write(a[i,j] :7,' ');
   end;
   end;
   writeln;
   writeln;
   For i:=1 to m do {vivod matrici B}
   begin
   writeln;
   For j:=1 to n do
   begin
   b[i,j]:=i*cos(i+j);
   write(b[i,j] :7,' ');
   if b[i,j]<t then l:=l+1 {s4etcik elementov<0,5 dla B}
   end;
   end;
   writeln;
   writeln;
   writeln('oPABHO=',o);{vivod kolicestva elementov<0,5 A}
   writeln('lPABHO=',l);{vivod kolicestva elementov<0,5 B}
   if a[i,j]> b[i,j] then
   begin
   for i:=1 to m do{cikl zameni 4etnih strok na ne 4etnie}
   for j:=1 to n do
   begin
   g:=(i*2)-1;{ne4etnie stroki}
   h:=2*i;{4etnie stroki}
   s:=a[g,j];
   a[g,j]:=a[h,j];
   a[h,j]:=s;
   c[g,j]:=a[g,j];
   c[h,j]:=s;
   end;
   For i:=1 to m do
   begin
   writeln;
   For j:=1 to n do
   begin
   write(c[i,j] :7);{vivod matrici A s zamenoi strok}
   end;
   end;
   end
   else
   begin
   for i:=1 to m do{cikl zameni 4etnih strok na ne 4etnie}
   for j:=1 to n do
   begin
   g:=(i*2)-1;{ne4etnie stroki}
   h:=2*i;{4etnie stroki}
   s:=b[g,j];
   b[g,j]:=b[h,j];
   b[h,j]:=s;
   c[g,j]:=b[g,j];
   c[h,j]:=s;
   end;
   For i:=1 to m do
   begin
   writeln;
   For j:=1 to n do
   begin
   write(c[i,j] :7);{vivod matrici A s zamenoi strok}
   end;
   end;
   end;
   writeln;
   readln(q);{readkey ne rabotaet(( sdelal tak vihod}
   end.
end.
end.