КАМЕНЬ - КАССЕТА<span> - КНИЖКА - </span><span>ДИСКЕТА - БУМАГА - </span>ФЛЕШ<span> - </span>ВИНЧЕСТЕР
Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var F := ReadArrInteger(ReadInteger('T='));
var ae := F.Where(p -> p.IsEven).Average;
var ao := F.Where(p -> p.IsOdd).Average;
var m := Min(ae, ao);
var E := F.Where(p -> p > m).ToArray;
E.Println
end.
Если писать на QBasice то будет примерно так:
1. DIT a(i)
4. IF i = 0 THEN 11
6. IF i > 0 THEN 13
7. IF I < 0 THEN 15
10. END.
<span>11. PRINT i
</span>12. END.
<span>13. PRINT i
</span>14. END.
<span>15. PRINT i
</span>16. END
Могу ошибаться) Точно не могу написать..
Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек