Составить программку, которая вычисляет сумму вводимых с клавиатуры чисел , избирая

//C++
include lt;iostreamgt;
include lt;cmathgt;
using namespace std;

int main()

 const int n = 10;
 int i, sum = 0;
int mas[n];
for (i = 0; i lt; n; i++)

 cout lt;lt; "mas[" lt;lt; i lt;lt; "] = "; cin gt;gt; mas[i];
 if ((mas[i] gt; -100) amp;amp; (mas[i] lt; -9) amp;amp; (mas[i] % 2 == 0))
 
  sum = sum + mas[i];
 

 cout lt;lt; "\nsum = " lt;lt; sum;
return 0;


//while
while(i lt; n)

  cout lt;lt; "mas[" lt;lt; i lt;lt; "] = ";
 cin gt;gt; mas[i]; if ((mas[i] gt; -100) amp;amp; (mas[i] lt; -9) amp;amp; (mas[i] % 2 == 0))
 
   sum = sum + mas[i];
 
 i++;
 

P.S за ранее int i = 0; (!)

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

Begin
var a:=ReadString('Введите числа').ToIntegers;
var sum := 0;
for var i:= 0 to a.Length - 1 do
if (a[i] lt; -9)and(a[i] gt; -100)and(a[i].isEven)then inc(sum,a[i]);
Writeln(sum);
end.


С циклом while

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

Begin
var a:=ReadString('Введите числа').ToIntegers;
var sum := 0;
var i:= 0;
while i lt; a.Length - 1 do begin
if (a[i] lt; -9)and(a[i] gt; -100)and(a[i].isEven)then inc(sum,a[i]);
inc(i);
end;
Writeln(sum);
end.