Образовательный портал

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

• const N=10; 
  var 
  i,ch:integer; 
  A:array [1..n] of integer; 
  Begin 
  For i:=1 to N do BEGIN 
  A[i]:=Random(99)+1; 
  Write(A[i],’ ‘); 
  END; 
  Write(‘Нечетные: ‘); 
  For i:=1 to N do BEGIN 
  if (A[i] mod 2 = 1) and (i mod 2 = 0) then Write(i, ‘. ‘, A[i],’ ‘); 
  END; 
  WRITELN; 
  End. 
  Вроде так!