9. 1312 Кбайт
10. 14 сек.
Объяснение:
9. Передача велась 42 секунды со скоростью 256000 бит/с, следовательно, было передано 256000 * 42 бит информации. Для перевода в Кбайт, полученное число необходимо поделить на 8 (бит -> байт) и на 1024 (байт -> Кбайт).
Размер файла: 256000 * 42 / 8 / 1024 = 1312,5
10. Варианта два: перевести скорость в Кбайт или объем сообщения из Кбайт в биты.
Воспользуемся первым вариантом: 128000 / 8 / 1024 = 15,625 Кбайт/с.
Время передачи составило: 229 / 15,625 = 14,656 сек.
const
n = 9; //константа может быть любой
type
mas = array[0..n] of integer; //тип задал только для процедуры, без подпрограмм отдельный тип не нужен
procedure copy_mas(var a, b: mas);
var
i, i1: integer;
begin
i1 : = 0;
for i : = 0 to n do
if (a[i] > = 0) and (a[i] < = 10) then
begin
b[i1] : = a[i];
i1 += 1;
end;
end;