Составить программу которая формирует массив из 9 случайных целых чисел на промежутке от -30, 30 и вычислите: а) сумму отрицательных чисел б) произведение чётных чисел

Var     mas: array [1..9] of integer;     summ, count: integer;     i: integer; begin      randomize;     summ : = 0;     count : = 1;     for i : = 1 to 9 do     begin         mas[i] : = random(-30, 30);         write(mas[i] : 4);         if mas[i] < 0 then summ : = summ + mas[i];         if mas[i] > 0 then count : = count * mas[i];     end;     writeln('');     writeln('сумма отрицательных элементов: ', summ);     writeln('произведение положительных элементов: ', count); end.

1) в 16-ти символьном алфавите каждый символ кодируется 4-мя битами               ( 2^4=16 > 4 бита ~ 1 символ,    4=2^2) 2)    1 мбайт=2^20 байт=2^23 бит           1/16=1/2^4                 1/16 мбайта=2^23/2^4 бит =2^19 бит 3) 2^19/ 2^2=2^17 (символов в тексте) =                     =2^10 * 2^7=1024*128 =131 072  (символа) ответ 131 072 символа в сообщении

#include < iostream> #include < random> #include < ctime> using namespace std; mt19937 gen(time(0)); uniform_int_distribution< > uid(0, 19); void replace(int *a, int n, int k) { int last = a[n]; for (int i = n - 1; i > = k; { a[i + 1] = a[i]; } a[k] = last; } int main() { int n = 0, k = 0; cin > > n; int *a = new int[n]; if (n < = 100) {   for (int i = 0; i < = n; i++) {   a[i] = uid(gen); cout < < a[i] < < " ";   }   cout < < endl; cin > > k;   if (k < = n) {   replace(a, n, k - 1);   for (int i = 0; i < = n; i++) {     cout < < a[i] < < " "; }   } else {   cout < < "error" < < endl;   } } else {   cout < < "error! " < < endl; } delete[] a; return 0; }