7. Дан массив А из 20 элементов. Заменить отрицательные эле-менты массива на среднее арифметическое элементов массива. Результат вывести на печать.

Привожу вариант решения задачи на Pascal. Задаем переменные самого массива А, среднего арифметического s и счетчика i. В первом цикле сразу организуем ввод с клавиатуры переменных массива и их суммирование для последующего нахождения среднего арифметического. Начальное значение переменной s по умолчанию равно 0. Затем снова запускаем цикл со счетчиком и внутри используем оператор условия: Если элемент массива меньше нуля, то присваиваем элементу с этим номером значение s.

var

A: array [1 ... 20] of real;

s: real;

i: integer;

begin

for 1:=1 to 20 do

begin

writeln ('Введите', i,'-й элемент массива');

readln (A[i]);

s:=s+A[i];

end;

s:=s/20;

for 1:=1 to 20 do

if A[i]<0 then A[i]:=s;

for i:=1 to 20 write (A[i],' ')

end.