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

[toha1289]

от 1 до 10 и выводит на экран количество элементов счётными значениями и сумму элементов массива с нечётными значениями

 

[Boroda]

.

 

[12343212145]

count:=0; sum:=0; for i:=1 to 8 do begin a:=1+random(1); if not odd(a) then inc(count) else sum:=sum+a; end; Язык угадал, Штирлиц?)