<span>В России построена первая телеграфная линия - 40-е гг. 19 века.</span>
<span>В Америке изобретён телефон - 1876 г</span>
<span>Русский ученый Попов открыл радиосвязь - <span>1895 г.</span></span>
Создан первый телевизор - 30-е гг. 20 века
<span><span><span><span><span><span><span><span>В США начала функционировать первая в мире компьютерная - </span>1969 г. </span></span></span></span></span></span></span>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-12,12); a.Println;
Writeln('Среднее арифметическое: ',a.Average);
Writeln('Произведение отрицательных: ',
a.Where(t->t<0).Aggregate(1,(x,y)->x*y));
Writeln('Количество четных: ',a.Where(t->t.IsEven).Count);
Writeln('Максимальный элемент: ',a.Max)
end.
<u>Пример</u>
9 -10 -2 -4 11 8 1 0
Среднее арифметическое: 1.625
Произведение отрицательных: -80
Количество четных: 5
Максимальный элемент: 11
Итак:
1) 16*32*30*8=122 880
2)122 880 / 1024=120 (байт)
Ответ: 120 байт