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

Question

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

Answer 1

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

Answer 2

#include

#include

using namespace std;

int main() {

int S = 0;

int a[10];

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

{

 cin >> a[i];

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

 {

 S += a[i];

 cout << i + 1 << " ";</p>

 }

}

cout << endl << "SUM=" << S;</p>

return 0;

}