Uses crt;
const M = 100;
var a: array [1..M] of integer;
i, max, k, n: integer;
begin clrscr;
repeat
writeln('Введите количество элементов массива');
readln(n);
until (n <> 0) and (n>0);
for i := 1 to n do
begin
writeln('Введите [', i, '] элемент массива');
readln(a[i]);
end;
for i := 1 to n do
write(' ', a[i]);
writeln;
max := a[1];
for i := 2 to n do
if a[i] > max then max := a[i];
writeln(' max= ', max);
for i := 1 to n do
if a[i] = max then k := k + 1;
writeln(' k= ', k);
<span>end.</span>
var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
<span>end.</span>
N=2^i
N=16=2^4=>i=4бита информационный объем 1 символа
Всего символов n=90=>
I=n*i= 90*4=360 бит инф.объем всего сообщения
1 байт=8 бит=>
360:8=45 байт
Ответ: 45 байт