Составьте программу, которая заполняет массив a [1 ... 10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива. 0

Const N=10;

var a:array [1 ... N] of integer;

i, sum:integer;

sr:real;

begin

sr:=0; sum:=0;

for i:=1 to N do

begin

a[i]:=random (10) + 1;

sum:=sum+a[i];

end;

for i:=1 to N do

write (a[i]:3) ;

writeln;

sr:=sum/10;

writeln ('Среднее значение элементов массива:', sr) ;

end.