Найти количество не отрицательных нечетных элементов двумерного массива.

На паскале

---

uses crt;

const n=3;

m=3;

var a: array [1 ... n, 1 ... m] of integer;

x, y, k: integer;

begin

k:=0;

for x:=1 to n do begin

for y:=1 to m do begin

a[x, y]:=random (21) - 10;

if a[x, y] mod 2=1 then inc (k) ;

write (a[x, y]:4) ;

end;

writeln;

end;

writeln ('Количество неотрицательных нечетных элементов: ', k) ;

end.