Выберете две характиристики памяти ROMверных ответов 2 ​

// 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

Const
N = 3;
Var
A:array[1..N] of integer;
S:integer:=0;
b:boolean:=false;
Begin
For var i:=1 to N do
   Begin
   Read(A[i]);
   if (A[i]>9)and(A[i]<100)and(A[i] mod 10 = 7) then
      Begin
      S+=A[i];
      b:=true;
      End;
   End;
For var i:= 1 to N do
   Write(A[i],' ');
WriteLn;
if b then Write('S = ',S)
else Write('Таких чисел нет')
End.

Const
N = 3;
Var
A:array[1..N] of integer;
S,B:integer;
Begin
For var i:= 1 to N do
   Begin
   S:=0;
   A[i]:= random(65536)-32767;
   Write(A[i]:6,' ');
   B:=abs(A[i]);
   While B<>0 do
      Begin
      S:=S+ B mod 10;
      B:= B div 10;
      End;
   A[i]:=S;
   End;
WriteLn;
For var i:= 1 to N do
   Write(A[i]:6,' ');
End.

const
N = 3;
Var
A:array[1..N] of integer;
Ch,Nch:integer;
Begin
For var i:=1 to N do
   Begin
   Read(A[i]);
   if A[i] mod 2 = 0 then Ch+=1
   else Nch+=1;
   End;
For var i:= 1 to N do
   Write(A[i],' ');
WriteLn;
WriteLn('Чёт = ',Ch);
WriteLn('Нечет = ',Nch)
End.