В целочисленном массиве A 20 случайных чисел из интервала от -10 до 15. Подсчитать количество отрицательных чисел в этом массиве

Var i,n: integer; a: array[1..20] of integer; begin   n: =0;   for i: =1 to 20 do   begin     a[i]: =random(25)-10;     write(a[i]: 2,' ');   end;     writeln;   for i: =1 to 20 do   begin     if a[i]< 0 then inc(n);   end;   writeln('kol: ',n); readln end.

Ты перенесешь ярлык.вроде как

Таблица 32 * 16 = 2⁹ символов. Тогда информационный объем одного символа 9 бит. 600 * 9 = 5.400 бит.