В логике с помощью кругов Эйлера.
Эйлера-венна
И еще после последней строчки
кон
Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;
Использовать Робот
алг
нач
влево
нц пока снизу свободно
периметр
мост
кц
кон
алг мост
нач
вниз
влево
нц пока снизу не свободно
если слева свободно
то
влево
все
кц
кон
алг периметр
нач
закрасить
вправо
нц пока снизу не свободно
закрасить
вправо
кц
закрасить
вниз
нц пока слева не свободно и снизу свободно
закрасить
вниз
кц
закрасить
влево
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху не свободно
закрасить
влево
кц
закрасить
вверх
закрасить
вправо
нц пока снизу не свободно
вправо
кц
вниз
нц пока слева не свободно
вниз
кц
кон
<h2><em>Пропорция:
</em></h2><h2><em></em></h2><h2><em>4 секунды - (5 * 128 = 640) байт
</em></h2><h2><em></em></h2><h2><em>1 секунда - X
</em></h2><h2><em></em></h2><h2><em></em></h2><h2><em>Решаем:
</em></h2><h2><em></em></h2><h2><em>X = (1 * 640) / 4 = 640 / 4 = 160
</em></h2><h2><em></em></h2><h2><em></em></h2><h2><em>Ответ:
</em></h2><h2><em></em></h2><h2><em>Пропускная способность канала равняется 160 байт за одну секунду.</em></h2>