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

var a:array[1..10]of integer;n1,n2,s,i:integer;beginn1:=1;n2:=1;for i:=1 to 10 do a[i]:=random(10)+1;for i:=1 to 10 do beginif a[i] mod 2=0 then n1:=n1*a[i] else n2:=n2*a[i];s:=s+a[i];end;writeln(n1,' ',n2,' ',s/10);end.

Объеденил все 3 программы: вначале выводит произведение четных, потом нечетных, потом среднее арифм.