Программа и блок схема

Question

Сформулируйте при помощи функции Random массив целый чисел C[1..10] в диапазоне от 100 до 200. Вычислите среднеарифметическое всех нечетных чисел и отобразите на экране. 
 
на паскале

Александр · Accepted Answer

Ни спасибо, ни пожалуйста. Ни попыток сделать. 
sum:=0; n:=0; 
for i:=1 to 10 do 
if C[ i ] mod 2 <>0 then 
begin 
sum:=sum+C[ i ]; 
inc(n); 
end; 
writeln(sum/n) ;