Составьте программу которая заполняет массив а (1… 10) случайными целыми числами в…

uses crt; const n=10; vari: integer; sum,sred: real; mas: array [1… n] of integer; beginfor i: =1 to n dobeginmas[i]: =random (10); end; for i: =1 to n dosum: =sum+mas[i]; sred: =sum/n; write ('srednee ravno ',sred); read; end. Вот) если хочешь могу написать чтобы выводила и сами цифры массива, чтобы потом можно было наглядно проверить все)