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

Ответ: vara:array [1..8] of integer;i,summ,n:integer;beginrandomize;for i:=1 to 8 do begina[i]:=random(1,10);write(a[i], ‘ ‘);end;n:=0;summ:=0;for i:=1 to 8 doif a[i] mod 2=0 thenn:=n+1elsesumm:=summ+a[i];writeln(»);writeln(‘Количество четных элементов ‘,n);writeln(‘Сумма нечетных ‘,summ);end.