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

Var   a : array [1..8] of integer;   i, count, sum : integer; begin   randomize;   for i : = 1 to 8 do     a[i] : = random (10) + 1;   count : = 0; sum : = 0;   for i : = 1 to 8 do     if a[i] mod 2 = 0 then count : = count + 1     else sum : = sum + a[i];   writeln ('count = ', count);   writeln ('sum = ', sum); end.

#include < iostream> #include < cmath> using namespace std; int main() {       float x, y, z;       cin > > x > > y;       if (x < = 0) {             z = pow(3 * pow(x, 5) + y * y, (float) 1 / 7);       } else if (x > 0 & & abs(y) > = x) {             z = atan(x * y);       } else {             z = log(5 * x - abs(y)) / log(4);       }       cout < < z;       return 0; }

//pascal var   a: array[1..10] of real;   i, count: integer;       begin   count : = 0;     write('исходный массив: ');     for i : = 1 to 10 do   begin         {генерация}       a[i] : = random(200) + random() - 100;             {вывод}       write(a[i] : 0 : 5, ' ');             {проверка}       if (a[i] > -30) and (a[i] < 0) then inc(count);         end;     writeln;   writeln('количество отрицательных элементов, превышающих -30: ', count); end.