// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln('Ср.геом. положительных на нечетных местах ',
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.
<u><em>Тестовое решение</em></u>
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864
4 Мб = 4 * 1024 * 1024 = 2^22 бит.
а) Сжимаем (20 секунд, объём документа становится 2^21 бит), передаём (2^21 / 2^18 = 8 секунд), распаковываем (5 секунд) - итого получаем 33 секунды
б) передаём без архивации: 2^22 / 2^18 = 16 секунд.
Ответ: быстрее без архивации, на 33 - 16 = 17 секунд.
//1
var i: byte;
begin
for i := 2 to 20 do
writeln('Цена за ',i,' = ', 20.4 * i);
end.
//2
var i: byte;
Price, TotalPrice: real;
begin
Price := 20.4;
for i := 2 to 20 do
begin
TotalPrice := Price * i;
writeln('Цена за ',i,'шт. = ', TotalPrice);
end;
end.