I = i*n,
где I - <span>информационный объём сообщения, i - кол-во информации для хранения 1 символа в данном алфавите, n - кол-во символов
I = 2*74 = 144 байт
Ответ: 144 байт.</span>
Від програми в якому він створюється, редагується, зберігається.
Текст программы в документе.
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Ctrl+A - выделить документ целиком
Ctrl+C - копировать выделенный файл
Ctrl+X - вырезать выделенный фрагмент
Ctrl+V - вставить из буфета обмена копированный/вырезанный фрагмент