Через некоторое соединение в течение 100 секунд со скоростью 192 бит/с (бита в секунду) передается некоторый файл. определите, с какой скоростью (в бит/с) должно работать соединение, чтобы этот же файл можно было передать за 30 секунд.
Const n=10; var a:array[1..n+1] of integer; k,i,j:integer; begin Randomize; writeln('Исходный массив'); for i:=1 to n do begin a[i]:=random(51)-10; write(a[i],' '); end; writeln; write('k = '); readln(k); j:=1; while (j<n)and(a[j]>=0) do j:=j+1; if a[j]>=0 then writeln('Отрицательных элементов нет') else begin for i:=n downto j+1 do a[i+1]:=a[i]; a[j+1]:=k; writeln('Измененный массив:'); for i:=1 to n+1 do write(a[i],' '); writeln; end; end.
Размер файла:
100*192=19200 бит
19200/30=640 бит/с
ответ: 640 бит/с