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

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

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

var a:array[1..10,1..15]of integer;i,j,n,x:integer;beginfor 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 doif a[i,j]=x then inc(n);writeln(n);end.

var a:array[1..10,1..15]of integer;i,j,k:integer;beginfor 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 doif a[i,j] mod 2=0 then inc(k);writeln(k);end.