Var A: array [1..4, 1..5] of real; i, j, z: byte; begin randomize; z := 0; for i := 1 to 4 do begin for j := 1 to 5 do begin A[i, j] := random*2-1; write(A[i, j]:6:2, ' '); if A[i, j] > 0 then z := z + 1; end; writeln; end; writeln('Количество нечетных элементов = ', z); end.