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

Для составления этой программки нам пригодится сам массив. Так как состоит он только из целых чисел, конкретно такой тип у него и будет:
var а:array [1..10] of integer;
Чтобы его элементы были случайными, нам необходимо использовать специальную функцию. Но в задачке есть спектр, потому мы немножко изменим эту функцию:
for i:integer:1 to 10 do
а[I] rand(19) + 1; - этой записью мы изменили работу функции. Сейчас она будет творить числа от нуля до 19, а мы к ним будем добавлять еще 1, потому они не будут больше 20 и меньше 1.
Обретаем среднее арифметическое:
for i:integer:1 to 10 do
if (a[i] mod 2 lt;gt; 0)
sum sum + a[i]
else
pr pr * a[i]; - переменная pr вначале обязана быть одинакова 1.
sr_ar sum / 5;
write (sr_ar, pr);