Введите с клавиатуры одномерный массив А (I), элементами которого являются положительные и отрицательные целые числа. Сформируйте массив D (I) в котором на

четных местах будет стоять количество отрицательных элементов массива A (I), а на нечетных - среднее арифметическое положительных элементов массива A (I). Паскаль

Const l = 5;

var

a: array[1 ... l] of integer;

d: array[1 ... l] of real;

i, otr, k, m: integer;

begin

otr:=0; k:=0; m:=0;

//считаем массив а

for i:=1 to l do

begin

readln (a[i]) ;

//если ввели положительное число, увеличим перем. otr на 1

if a[i] < 0 then

inc (otr) ;

//если ввели отрицательное число, увеличим перем. k на 1

//и к переменной m прибавим элемент

if a[i] > 0 then

begin

inc (k) ;

inc (m, a[i]) ;

end;

end;

//заполним массив d

for i:=1 to l do

//если индекс четный, присвоим элементу otr

//иначе присвоим среднее арифметическое

if i mod 2 = 0 then

d[i] : = otr

else

d[i] : = m/k;

end.