Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.
Объяснение:
1. Можно вычислять скорость передачи, но в конкретном случае намного проще решить математически, через пропорцию:
12 Мб - 9 минут
8 Мб - x минут
x=8*9/12= 6 минут
2. В книжке всего 400*30*60=720000 символов. Каждый символ кодируется 8 битами. Значит всего в книжке 720000*8=5760000 бит.
При скорости передачи 5 кбит/с = 5120 бит/с книжку можно передать за 5760000 / 5120=1125 секунд.
3. 2 Кб = 2048 байт= 2048*8=16384 бит.
Если 16384 бит передали за 8 с, то каждую секунду передается 16384/8=2048 бит