Паскаль! Дан целочисленный массив размером n (n — const). Заполнить массив случайными…

Program qqq; const n=5; var m: array [1… n] of integer; i: byte; a,b,s: integer; begins: =0; randomize; write ('введите a='); readln (a); write ('введите b='); readln (b); for i: =1 to n do beginm[i]: =random (a,b); s: =s+m[i]; end; Writeln ('Среднее арифмитическое=', (s/n): 0:4); end.