Заполнить массив из 30 элементов случайным образом вещественными значениями, лежащими в диапазоне от 0 до 23. Найти среднее арифметическое всех элементов массива. Уменьшить все элементы на число b.

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=30;

 Var
 ar:array[1..n] of integer;
 i,b:integer;
 sr:real;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(0,23);
   write(ar[i]:4);
   sr:=sr ar[i];
  end;
 writeln;
 sr:=sr/n;
 writeln('Sr=',sr);
 write('Enter value B:');
 readln(b);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]-b;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  22   7  10  13   1   4   5   6   4  21   8  20  17  15  23   5  19  18  20  19   5  11  14   0  11   4   3  23  23  17
Sr=12.2666666666667
Enter value B:3
Final array:
    19     4     7    10    -2     1     2     3     1    18     5    17    14    12    20     2    16    15    17    16     2     8    11    -3     8     1     0    20    20    14