<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
1) 1001010101 (2)= 1125(8) = 255(16)
2) 417
3) 1023
4) 196
5) 11000101
6) 10110100
7) 1111
Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje
50 × 13 = 650 (кол-во символов на каждой стр), 650 × 200 = 130,000 (кол-во символов во всей книге). 1 мегабайт = 1024 килобайт, 1 килобайт = 1024 байт. 130,000 ÷ 1024 = 130(килобайт), дальше 130 ÷ 1024 = 0.13(мегабайт).
Ответ: 126,953125 килобайтов и 0,1239776611 мегабайтов