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

Var
a:array [1..8] of integer;
i,summ,n:integer;
begin
randomize;
for i:=1 to 8 do begin
a[i]:=random(1,10);
write(a[i], );
end;
n:=0;
summ:=0;
for i:=1 to 8 do
if a[i] mod 2=0 then
n:=n+1
else
summ:=summ+a[i];
writeln();
writeln(Количество четных элементов ,n);
writeln(Сумма нечетных ,summ);
end.