Скорость передачи данных по некоторому каналу связи равна 1024000бит/с. передача данных через это соединение заняла 5 секунд. информационный объем переданного файла равен: 1) 625кбайт 2) 625мбайт 3) 1024кбайт 4) 5000кбайт
//Pascal var A: array[1..10] of integer; i, Count: byte; sum: integer; begin randomize; writeln('Сгенерированный массив'); for i := 1 to 10 do begin A[i] := random(8)-3; if A[i] < 0 then sum := sum + A[i]; write(A[i],' '); end; writeln; writeln('Сумма отрицательных элементов = ', sum); writeln; writeln('Измененный массив'); for i := 1 to 10 do begin if A[i] >= 0 then begin A[i] := 0; Count := Count + 1; end; write(A[i], ' '); end; writeln; writeln('Количество нулевых элементов = ', Count); end.
1024000*5/8/1024=625 Кбайт