4000бит/с / 8= 500байт/с
1Мб=1024Кбайта
1Кбайт=1024байта
1мб=1048576 байт
1048576 / 500 ~ 34 минуты 57 ceк
var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.
1 - 1)
2 - 4)
3 - Нужно чтобы число было в цикле от большего к меньшему. Так что подходит 1) и 4).
Ничего не видно. Сфоткай еще раз
Если считать те 2 точки после восклицательного знака
1)53*16бит=53*2байта=106 байта
если не считать их
1)51*2байта=102 байта