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

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