// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
1/16 Мб = 65536 байт; в 16-ти симв. алфавите на кодировку 1-го символа нужно 4 бита , значит в 1 байте 2 симв. если объем 65536 байт, умножь на 2
получишь 131072 символа <span>
131072 символа </span>
<span>(1/16)*(1024*1024)*(8_бит) / (4 бита для 16 символьного алфавита) </span>
1*10⁴+4*10³+6*10² может не точно, проверь если что)
№1 -3)
№2 - 1)
№3 - 2)
№4 - 2)
№5 - 5)
№6 - 2)
№7 - 1)
В видеопамяти (20 символов)