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

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.