Program nau;
var a: array [1..4, 1..4] of real; i,j: integer; k,l: real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
readln (a[i,j]);
end;
k:=a[1,1];
for i:= 1 to 4 do
for j:= 1 to 4 do
if a[i,j]>k
then k:=a[i,j];
writeln ('наибольший элемент массива = ',k);
<span>end.</span>
часть схемы передающей информацию-канал
1Это к исполнитель человек
2<span>Дано натуральное число меньше 16. Посчитать количество его единичных битов. Например, если дано число 9, запись которого в двоичной системе счисления равна 10012 (подстрочная цифра 2 справа от числа означает, что оно записано в двоичной системе счисления), то количество его единичных битов равно 2.</span>
a = float(input())
b = float(input())
if a > b:
a+=10
b-=5
elif a == b:
print('Numbers is equal')
else:
a-=5
b+=10
V=каналы (штуки) *частота (1/с) *битность (бит) *время (с)
V=2*44032*16*60 бит = 2^1 * 43*2^10 *2^4 *15*2^4=43*15*2^17 бит
(43*15*2^17)/2^23 Мбайт=(43*15)/2^6 Мбайт=645/64 Мбайт = 10,08 Мбайт