Question

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

Answer 1

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.