Заполнить массив из 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