Дан линейный массив A[1..N], содержащий целые числа. Посчитать сумму нечетных чисел

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var s := 0;

 for var i := 0 to a.High do

   if a[i].IsOdd then

   begin

     Print(i + 1);

     s += a[i]

   end;

 Println;

 Println('Сумма нечетных значений одинакова', s)

end.

Пример

n= 17

-40 7 39 -29 -3 11 21 -49 12 33 -30 1 -48 36 -12 44 -17

2 3 4 5 6 7 8 10 12 17

Сумма нечетных значений одинакова 14

include lt;iostreamgt;

include lt;iomanipgt;

using namespace std;

int main()

int S = 0;

int a[10];

for (int i = 0; i lt; 10; i++)

 cin gt;gt; a[i];

 if (a[i] % 2 != 0 amp;amp; a[i] != 0)

  S += a[i];

  cout lt;lt; i + 1 lt;lt; " ";

cout lt;lt; endl lt;lt; "SUM=" lt;lt; S;

return 0;