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

Const n=14;

var c:array[1 ... n] of integer;

s, k, i:integer;

begin

k:=0;

s:=0;

for i:=1 to n do begin

c[i]:=random (10) + 1;

write (c[i]:4) ;

end;

writeln;

for i:=1 to n do

if c[i] mod 2=0 then s:=s+c[i]

else k:=k+1;

writeln ('сумма четных элементов = ', s) ;

writeln ('кол-во нечетных чисел = ', k) ;

end.