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

А можно с program и var в начале?

не понял, зачем тебе program

константу обычно первой пишут

Окей, спасибо большое с:

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