Нужно подробное решение с дано и т.д. 1. документ объёмом 12 мбайт можно передать с одного компьютера - id803801120221121 от 12355689 21.11.2022 07:53

Question

Информатика: Нужно подробное решение с дано и т.д. 1. документ объёмом 12 мбайт можно передать с одного компьютера на другой двумя а. сжать архиватором, передать архив по каналу связи, распаковать. б. передать по каналу связи без использования архиватора. какой быстрее и насколько, если: - средняя скорость передачи данных по каналу связи составляет 220 бит в секунду; - объём сжатого архиватором документа равен 25% исходного; - время, требуемое на сжатие документа, - 22 секунд, на распаковку - 2 секунды? в ответе

12355689 · Accepted Answer

// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
    a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
    if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
    a.Where(x->x>0).Sum) // 5
end.

Тестовое решение:
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112

MOGZ ответил