Написать программу, которая находит сумму и среднее арифметическое элементов с 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.