. Введите с клавиатуры шесть чисел. Найдите сумму и произведение тех из них, которые больше 10.

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите данные:',n); a.Println;
  var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7));
  if s.Count=0 then Writeln('Таких чисел нет')
  else Writeln(s.Sum)
end.

Пример
n= 5
Вводите данные: 45 -38 27 -17 47
45 -38 27 -17 47
74

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

function Sod(n:integer):integer;
begin
  var s:=abs(n).ToString;
  Result:=s.Select(c->c.ToDigit).Sum
end;

begin
  var a:=ArrRandom(ReadInteger('n='),-999,999); a.Println;
  a:=a.Select(x->Sod(x)).ToArray; a.Println
end.

Пример
n= 10
-252 814 -239 -157 792 -223 697 -482 616 -675
9 13 14 13 18 7 22 14 13 18

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите данные:',n); a.Println;
  Writeln('Четных чисел ',a.Where(x->x.IsEven).Count);
  Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count);
end.

Пример
n= 16
Вводите данные: 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
Четных чисел 9
Нечетных чисел 7