Дан двумерный массив целых числе i=10 j=15, Заполняется случайным образом целыми числами от 0 до 100.

1) Определить сколько раз в нем встречается элемент со значеием х. х задается прользователем

2) Определить количесво четных элементов массива.

var a:array[1 ... 10,1 ... 15]of integer;

i, j, n, x:integer;

begin

for i:=1 to 10 do for j:=1 to 15 do a[i, j]:=random (101) ;

for i:=1 to 10 do begin for j:=1 to 15 do write (a[i, j],' ') ; if j=15 then writeln; end;

readln (x) ;

for i:=1 to 10 do for j:=1 to 15 do

if a[i, j]=x then inc (n) ;

writeln (n) ;

end.

var a:array[1 ... 10,1 ... 15]of integer;

i, j, k:integer;

begin

for i:=1 to 10 do for j:=1 to 15 do a[i, j]:=random (101) ;

for i:=1 to 10 do begin for j:=1 to 15 do write (a[i, j],' ') ; if j=15 then writeln; end;

for i:=1 to 10 do for j:=1 to 15 do

if a[i, j] mod 2=0 then inc (k) ;

writeln (k) ;

end.