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

Для составления этой программы нам понадобится сам массив. Так как состоит он только из целых чисел, именно такой тип у него и будет:

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 0)

sum ≔ sum + a[i]

else

pr ≔ pr * a[i]; - переменная pr изначально должна быть равна 1.

sr_ar ≔ sum / 5;

write (sr_ar, pr);