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

Привожу вариант решения задачи на Pascal. Задаем переменные самого массива А, среднего арифметического s и счетчика i. В первом цикле сразу организуем ввод с клавиатуры переменных массива и их суммирование для последующего нахождения среднего арифметического. Начальное значение переменной s по умолчанию равно 0. Затем снова запускаем цикл со счетчиком и внутри используем оператор условия: Если элемент массива меньше нуля, то присваиваем элементу с этим номером значение s.varA: array [1..20] of real;s: real;i: integer;beginfor 1:=1 to 20 dobeginwriteln(\'Введите\',i,\'-й элемент массива\');readln(A[i]);s:=s+A[i];end;s:=s/20;for 1:=1 to 20 doif A[i]<0 then A[i]:=s;for i:=1 to 20 write(A[i],\' \')end.