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