Если число в двоичной, то добавим ему незначащих нулей:
00001010-ответ
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var X := ArrRandom(ReadInteger('A='), -21, 21);
X.Println;
X.Sorted.Println;
X.Where(t -> t.IsOdd).OrderDescending.Println
end.
<h3>A= 18</h3><h3>9 9 -10 21 -11 -13 -2 19 5 20 -5 20 11 -6 -2 -10 14 -12</h3><h3>-13 -12 -11 -10 -10 -6 -5 -2 -2 5 9 9 11 14 19 20 20 21</h3><h3>21 19 11 9 9 5 -5 -11 -13</h3>
<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
X - количество монет у I
y - количество монет у II
1-ая партия: I X+Y/2 ; II Y-Y/2=У/2
2-ая партия: I (X+Y/2)/2 II Y/2+(X+Y/2)/2=Y*3/4+X/2
3-я партия: I (X+Y/2)/2+1/2(Y*3/4+X/2)=X*3/4+Y* 5/8
II Y*3/8+X/4
Cистема:
X*3/4+Y*5/8=28
(X/4+Y*3/8)=12 Решение этой системы: Х=24 Y=16
Ответ 24 монеты у первого; 16 монет у второго