:сколько секунд потребуется модему, сообщения со скоростью 800 бит/с, чтобы передать цветное растровое - id387822720220623 от vitalii1962svet 23.06.2022 10:21

Question

Информатика: :сколько секунд потребуется модему, сообщения со скоростью 800 бит/с, чтобы передать цветное растровое изображение размером 640 х 480 пикселей, при условии, что цвет каждого пикселя кодируется одним байтом?

vitalii1962svet · Accepted Answer

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 function Avg(a:array[,] of integer):real; begin   var s:=0; var k:=0;   foreach var e:integer in a do     if e 0 then begin s+=e; Inc(k) end;   if k 0 then Result:=s/k else Result:=1e-100; end; begin   var A:=MatrixRandom(4,4,-50,50); Writeln(A);   Writeln( Среднее арифметическое положительных равно ,Avg(A):0:3);   var B:=MatrixRandom(5,5,-30,30); Writeln(B);   Writeln( Среднее арифметическое положительных равно ,Avg(B):0:3);   var C:=MatrixRandom(4,5,-25,38);...

MOGZ ответил