<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-5,55); a.Println;
var max:=a.Where(t->t.IsEven).Max;
var imax:=a.IndexesOf(t->t=max).FirstOrDefault;
Writeln('1: a[',imax+1,']=',max);
Writeln('2: ',a.Where(t->t mod 3=0).Sum);
Writeln('3: ',a.Where(t->t<0).Count);
end.
<u>Пример</u>
n= 20
-4 45 4 -5 38 1 42 52 53 17 42 22 3 11 28 5 14 28 35 22
1: a[8]=52
2: 132
3: 2
цифры плохо видно так что ошибки имеют место быть
красный - это там где есть
синий - там где нет
Как-то так... )))
Только в 12 точке к x добавила 0 (взяла 1010000 вместо 101000), а то некрасиво было..
Дано
N-128
<u>K - 20
</u>Найти i -?
I - ?
Решение:
Находим информационный вес символа по формуле N=2^i
i=7 бит
Теперь объем информации по формуле:
I=K*i
20*7=140 бит
бумажные, голосовые, компьютерные