<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger('Вводите:',ReadInteger('n=')).Average.Println
end.
<u>Пример</u>
n= 8
Вводите: 35 29 31 45 19 24 29 33
30.625
1. Малыш и Карлосон. У Карлосона отсутствует пропеллер.
2. Баба яга. У дома отсутствуют куриные ноги.
3. Не помню название сказки. У кота отсутствуют сапоги.
4. Айболит. Отсутствует медицинская шляпа.
Таблица истинности (смотри прикрепленный скрин)
I=3.5 Кб
N=2^i => 256=2^i => i=8 бит
I=K*i => K=I/i = (3.5*1024*8)/8=3584 символов