На паскале --- 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.
---
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.