// PascalABC.NET 3.0, сборка 1088
var
n,i,max,min,s,t,k:integer;
begin
Write('Введите количество членов последовательности: ');
Read(n);
Writeln('Вводите числа через пробел');
max:=-32768; min:=32767; s:=0; k:=0;
for i:=1 to n do begin
Read(t);
if t<min then min:=t
else
if t>max then max:=t;
if t<0 then begin s:=s+t; Inc(k) end
end;
Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5)
end.
<em><u>Тестовое решение:</u></em>
Введите количество членов последовательности: 7
Вводите числа через пробел
25 -6 39 -118 271 24 -15
Min=-118, max=271, ср.арифм.=-46.33333
N=64 нужно найти i, по формуле N=2 в степени i, подставляем, 64=2 в степени i, отсюда следут что i=6 битам
Использовать Робот
алг
нач
влево
нц пока снизу свободно
периметр
мост
кц
кон
алг мост
нач
вниз
влево
нц пока снизу не свободно
если слева свободно
то
влево
все
кц
кон
алг периметр
нач
закрасить
вправо
нц пока снизу не свободно
закрасить
вправо
кц
закрасить
вниз
нц пока слева не свободно и снизу свободно
закрасить
вниз
кц
закрасить
влево
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху не свободно
закрасить
влево
кц
закрасить
вверх
закрасить
вправо
нц пока снизу не свободно
вправо
кц
вниз
нц пока слева не свободно
вниз
кц
кон
№2
значит чтобы закодировать 1 сивол нужно 7 бит
всего у нас 30 сиволов значит оно несет 7 * 30 = 210 бит информации
№3
значит чтобы закодировать 1 сивол нужно 8 бит или 1 байт
всего у нас 5 * 30 * 70 = 10500 сиволов значит они содержат 8 * 10500 = 84000 бит = 10500 байт информации
№5
значит чтобы закодировать 1 сивол нужно 5 бит
всего в слове "информативность" 14 сиволов значит оно несет 5 * 14 = 70 бит информации
№6
значит чтобы закодировать 1 сивол нужно 5 бит
всего у нас 10 сиволов значит оно несет 5 * 10 = 50 бит информации
№7
значит чтобы закодировать 1 сивол нужно 6 бит
всего у нас 20 сиволов значит оно несет 6 * 20 = 120 бит информации