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

щас будет))) ещё 2 мин подожди)))

uses crt;const n=10;vari:integer;sum,sred:real;mas:array [1..n] of integer;begini:=1;while i<=n dobeginmas[i]:=random(10);i:=i+1;end;i:=1;while i<=n dobeginwrite(mas[i],' ');i:=i+1;end;i:=1;while i<=n dobeginsum:=sum+mas[i];i:=i+1;end;sred:=sum/n;write('srednee ravno ',sred);read;end.