Помогите решить 3 вариант 1 задачу

Question

Помогите решить 3 вариант 1 задачу

---

Answer 1

Const n=11;
var
  a: array[1..n] of integer;
  k: integer;
  i: byte;
begin
  randomize;
  k:=0;
  for i:=1 to n do begin;    
    a[i]:=random(-5,5); 
    write (a[i]:4);
    if (a[i]>=0) and (a[i] mod 2 =0)
      then k:=k+1
  end;
  writeln;
  writeln (k);
end.
-----------------------------------------
Пример:
  -3   5  -5   1   2  -4  -1  -5   5   0  -4
2