Question

Составить программу, которая вычисляет сумму вводимых с клавиатуры чисел , выбирая из них только двузначные чтные отрицательные числа ( с циклом for и while).

Answer 1

// 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] < -9)and(a[i] > -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 < a.Length - 1 do begin
if (a[i] < -9)and(a[i] > -100)and(a[i].isEven)then inc(sum,a[i]);
inc(i);
end;
Writeln(sum);
end.

Answer 2

//C++
#include <iostream>
#include <cmath>
using namespace std;

int main()
{
 const int n = 10;
 int i, sum = 0;
int mas[n];
for (i = 0; i < n; i++)
{
 cout << "mas[" << i << "] = "; cin >> mas[i];
 if ((mas[i] > -100) && (mas[i] < -9) && (mas[i] % 2 == 0))
 {
  sum = sum + mas[i];
 }
}
 cout << "nsum = " << sum;
return 0;
}

//while
while(i < n)
{
  cout << "mas[" << i << "] = ";
 cin >> mas[i]; if ((mas[i] > -100) && (mas[i] < -9) && (mas[i] % 2 == 0))
 {
   sum = sum + mas[i];
  }
 i++;
 }

P.S предварительно int i = 0; (!)