одномерный массив

[Osip56]

Дан одномерный массив А(10) чередующейся последовательности положительных и отрицательных чисел, ввобдимых с клавиатуры. Во вновь формируемом массиве С(10) отрицательные и положительные элементы будут заменены своими среднеарифметическими значениями. На дисплее вывести исходный массив А(10), среднеарифметические значения (положительные и отрицательные) чисел, их количество и новый массив С(10).

[whatever]

Язык укажи

отрицательные и положительные элементы будут заменены своими среднеарифметическими значениями.

О_о как? Среднеарифметическое ЧИСЛА?

[Osip56]

Язык-Pascal

[red-eye]

среднее арифметическое будет только всей последовательности и это одно число

[Mad_Cat]

for i:=1 to 10 do
if i<>10 then
c[i]:=A[i]/2+a[i+1]/2;
else c[i]:=A[1]/2+a[10]/2;