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

//Pascal ABC.NET v3.1 сборка 1219Const 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  17Sr=12.2666666666667Enter value B:3Final 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