1>4>5>10>20>21>22>23>24>25>50>100
Как вариант
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
Было: 5 сажень*2,16м + 3 аршина*0,72м = 10,8+2,16 =12,96 м
Видно также, что 3 аршина = 1 сажень (0,72м*3=2,16м=1 сажень)
Значит купили на самом деле просто 6 сажень = 6*7 футов = 42 фута = 6*2,1336м=12,8016м т.е. стала короче на 0,1584метра
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(5).Aggregate(1.0,(a,b)->a*b).Println
end.
<u>Пример</u>
35.3 173.2 0.15 -2.62 7
-16819.50396