<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(49,-50,50); a.Println;
Writeln('Сумма равна ',a.Sum);
if not a.Any(t->t=0) then Writeln('Произведение равно ',
a.Aggregate(BigInteger(1),(p,q)->p*q))
end.
<u>Пример</u>
-26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47
Сумма равна -71
Произведение равно -5875206582842929080605341032818854321985176247205888000000000
<span>файл объемом 500 Кбайт</span>
<span>общий объем информации в БИТАХ </span>
<span>OOИ =500 Кбайт =512000 байт =4096000 бит</span>
<span>скорость передачи v=<span>128000 бит/с</span></span>
<span><span>время передачи t= ООИ / v =4096000 бит / 128000 бит/с = 32 c</span></span>
<span><span>
</span></span>
<span><span>Ответ 32 секунды</span></span>
Это. очень смешно. папа. съел все. апельсины
Решение для Pascal.
Запускаем цикл от 0 до 9 (всего 10 повторений - 10 чисел) и каждый повтор берём число n := 2*i + 1, которое будет гарантированно нечётным. Затем выводим само число и его куб