100Мбит это 0,0125Гбайт.
В одно часе 3600 секунд.
Умножаем кол-во секунд на кол-во Гбайт.
0,0125*3600=45
Ответ: 45
Program n1;
Uses Crt;
Var
c: array[1..10] of integer;
i, b, k:integer;Begin
for i:=1 to 10 do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;
writeln();
writeln('Enter B = '); Readln(b);
k:=0;
for i:=1 to 10 do if (c[i]<b) then k:=k+1;
writeln('Kol-vo iskomih chisel: ', k);
<span>End.</span>
Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>
1..10 -номера масивово
1)2<1 n=2
2)3>2 n=2
3)4<2 n=4
4)5<4 n=5
5)6>5 n = 5
6)7>5 n=5
7)8>5 n=5
8)9>5 n=5
9)10>5 n=5
10)n=MAS[5]=5