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

Question

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

Answer 1

1. const
2.  N = 15;
3. var
4.  arr: array[1..N] of integer;
5.  valueOfNumbers, i: integer;
6. begin
7.  for i := 1 to N do
8.    begin
9.      arr[i] := Random(50) - 10;
10.      valueOfNumbers := valueOfNumbers + arr[i];
11.    end;
12.  Writeln(valueOfNumbers, '/', i, ' = ', valueOfNumbers / i);
13. end.