Задан числовой массив, состоящий из 11 элементов. Увеличьте все элементы данного массив, значения которых больше среднего арифметической всех элементов массива на 40 и выведите все элементы на экран. Паскаль

Много лишнего.

Отсутствует заполнение массива.

Массив заполнен вещественными числами при помощи датчика СЧ

Хорошо.

Вот решение задачи:uses Crt;const n=11;type Mas = array [1..n] of real;var  A: Mas;     i: integer;     Sum, Sred: real;beginClrScr;Sum:=0;for i:=1 to n do  begin      A[i]:= 100+random(1000)/27;      Sum:=Sum+A[i];  end;Sred:=Sum/n;WriteLn ('Old Massiv:  ');for i:=1 to n do      Write (A[i]:6:2,'    ');WriteLn; WriteLn;WriteLn ('Sred = ', Sred:6:2);WriteLn;WriteLn ('New Massiv:  ');for i:=1 to n do  begin      if A[i]>Sred then A[i]:=A[i]+40;      Write (A[i]:6:2,'    ');  end;WriteLn; ReadLn; end.