[ShuriK93]

Помогите пожалуйста решить 2 задачи, очень нужно.

1.Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и количество чисел, меньших заданного B

2.Сформировать новый массив из отрицательных элементов первого массива с номерами кратными 4 и элементов второго массива, меньших значения максимального элемента первого массива

[ApxaHGe1]

PHP код:

Program prim;
var
a,c: array [1..1000] of integer;
i,kol,n,b:integer;
s:real;
begin
writeln('Vvedite n:');
read(n);
writeln('Vvedite elementy massiva:');
for i:=1 to n do
read(a);
writeln('Vvedite b:');
read(b);
i:=1;
s:=0;
while i<=n do
begin
if a >= b then begin inc(kol); end;
i:=i+2;
end;
s:=s/kol;
writeln('Srednee arifmeticheskor ravno ',s:6:2);
end.