Const n= 10; m= 10; type tmatr= array[1..n,1..m] of byte; var a: tmatr; e,i,j: byte; begin randomize; for i: =1 to n do for j: =1 to m do a[i,j]: = random(10); e: =0; for i: =1 to n do for j: =1 to m do if (j mod 2)< > 0 then if a[i,j] = a[1,1] then inc(e); writeln(e); readln; end.
