1) Массив из 30 частей. Посчитать раздельно среднее арифметическое положительных и

для тебя программку написать?

на паскале пойдет?

возможно, что где-нибудь пропустил " ; "

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]gt;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 gt;0 then
k_n:=k_n+1;
writeln(k_n);
end.