Тема массив. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из 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.