Дан массив x (n, m) и число z. Определить, сколько раз среди элементов четных строк массива встречается число z с заданным значением.

Program p1;

uses crt;

const N = 5;

M = 3;

var x:array [1 ... N, 1 ... M] of integer;

j, i, z, k:integer;

begin

read (z) ;

for i:=1 to N do begin

For j:=1 to M do begin

x[i, j]: = random (5) - 2;

write (x[i, j]:4) ;

end;

writeln;

end;

For i:=1 to N do begin

K:=0;

For j:=1 to M do begin

If (x[i, j]>=0) and (x[i, j] = z) then

K: = K+1;

end;

writeln ('Кол-во повторений = ', k,' в ', i,' строке') ;

end;

end.