Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит сумму и среднее арифметическое всех элементов массива.

var i,a,N:integer; sr:real; begin  write('Vvedite N = ');  readln(N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N  randomize; for i:=1 to N do begin a:=random(N); write(a,' '); sr:=sr+a; //Значения массива складываются end; sr := (sr / N); //Сумма значений массива делится на количество значений writeln('srednee arifmeti4eskoe = ',sr:1:2); //Выводится среднее арифметическое readln; end.