Задача по информатике
вывести на экран первое и последнее число

пример:

ввод: 4 6 11 5 9 0

вывод: 4 9 (0 не считается элементом последовательности)

обязательное условие - ответ выводится в самом конце, после окончания цикла

1) 145 (10 сс) - 10010001 (2 сс)

145 (10 сс) - 221 (8 сс)

145 (10 сс) - 91  (16 сс)

2) 854 (10 сс) - 1101010110 (2 сс)

854 (10 сс) - 1526 (8 сс)

854 (10 сс) - 356  (16 сс)

Объяснение:

145 (10 сс) - 10010001 (2 сс)

145 делим в столбик на 2 без остатка. 145/2=72 (145-144=1), далее 72/2=36 (72-72=0), 36/2=18 (36-36=0), 18/2=9 (18-18=0), 9/2=4 (9-8=1), 4/2=2 (4-4=0), 2/2=1 (2-2=0). Записываем в обратном порядке полученные цифры: 10010001.

145 (10 сс) - 221 (8 сс)

145 делим в столбик на 8 без остатка. 145/8=18 (145-144=1), 18/8=2 (18-16=2). Записываем в обратном порядке полученные цифры: 221

145 (10 сс) - 91  (16 сс)

145 делим в столбик на 16 без остатка. 145/16=9 (145-144=1).

Записываем в обратном порядке полученные цифры: 91

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25