1) Массив из 30 элементов. Посчитать отдельно среднее арифметическое положительных и отрицательных 2) Посчитать количество нечетных элементов массива. Совсем не понимаю информатику, пожалуйста, помогите с этими задачами! :С

const  N:=30 var  a: array [1...N] of integer;  i, p, o, k1, k2:  integer; begin  for i :=1...N do readln(a[i]);  k1:=0;  k2:=0;  p:=0;  o:=0;  for i :=1...N do if a[i]>0 then begin  p:=a[i]+p;  k1:=k+1;  end; else o:=a[i]+o; k2:=k2+1; writeln(p/k1) writeln(o/k2) end. 2)const  N:=30 var  a: array [1...N] of integer;  k_n: integer; begin for i :=1...N do readln(a[i]); if a[i] mod 2 >0 then k_n:=k_n+1; writeln(k_n); end.