Дан массив а из 15 элементов заполнить из интервала от -10 до 40 и посчитать среднее арифметическое чисел

const  N = 15; var  arr: array[1..N] of integer;  valueOfNumbers, i: integer; begin  for i := 1 to N do    begin      arr[i] := Random(50) - 10;      valueOfNumbers := valueOfNumbers + arr[i];    end;  Writeln(valueOfNumbers, '/', i, ' = ', valueOfNumbers / i); end.