Начало с маленького до большого - если с распаковкой , А если просто нарисовать то с круглишка головы до туловищя...
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ReadArrInteger(ReadInteger('n='));
var d:=ReadInteger('d=');
Writeln('Среднее ',a.Where(x->x>d).Average)
end.
<u><em>Тестовое решение:</em></u>
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667
110 (в двоичной) = 2^2 + 2^1 = 6 (в десятичной), соответственно,
100 * 6 = 600 (в десятичной).
Var
a,b,s: integer;
begin
readln(a,b)
s:=(a*b)/2
writeln(s)
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var s := a.Partition((v, i) -> i.IsEven);
s[0].Println;
s[1].Println;
end.
<h2>n= 10</h2><h2>24 31 -29 -21 32 23 -17 34 16 -25</h2><h2>24 -29 32 -17 16</h2><h2>31 -21 23 34 -25</h2>