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

Вот решение задачи:

uses Crt;
const n=11;
type Mas = array [1..n] of real;
var  A: Mas;
     i: integer;
     Sum, Sred: real;
begin
ClrScr;

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.

Я немного оптимизировал, если ты не против.
uses crt;
const n=11;
Var a:array [1..n] of real;
  i: integer;
  sum,sred:real;
Begin sum:=0;
  for i:=1 to n do readln(a[i]);
  for i:=1 to n do sum
  sred:=sum/n;
  for i:=1 to n do
  begin
       if a[i]>sred then a[i]:=a[i]+40;
       write (a[i]:3:2,'    ');
  end;
End.