Написать программу, которая находит сумму и среднее арифметическое элементов с n1 до n2...

Question

Написать программу, которая находит сумму и среднее арифметическое элементов с n1 до n2 одномерного массива, заполненного случайным образом. Номера элементов n1, n2 вводятся с клавиатуры. Необходимо вывести исходный одномерный массив, а затем сумму и среднее арифметическое элементов введенного диапазона.

Answer 1

Const
  n = 50;// количество элементов массиваvar
  a: array [1..n] of integer;
  i, sum: integer;
  cr: real;// среднее арифметическоеbegin
  for i := 3 to n do
    a[i] := random(1000);  // Диапазон рандомных чисел
  readln(a[1]);  // 1 элемент массива
  readln(a[2]);  // 2 элемент массива
  for i := 1 to n do
    sum := sum + a[i];
  cr := sum / n;
  writeln(a);
  writeln(sum);
  writeln(cr);
end.