ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ

Тема 4. Простой поиск в массиве

1. Задан одномерный массив. Найти сумму положительных элементов массива.

X

C++

#include <iostream>

#include <string>

using std::string;

int main()

{

int const N=10;

int A[N+1];

int I, Sum;

for (I=1; I<=N; I++)

   std::cin >> A[I];

Sum = 0;

for (I=1; I<=N; I++)

   if (A[I] > 0)

      Sum = Sum + A[I];

std::cout << "Sum=" << Sum;

}

X

Pascal

program Prim_1;

const

   N=10;

var

   A :array[1..N] of integer;

   I, Sum: integer;

begin

   for I:= to N do

      readln(A[I]);

   Sum := 0;

   for I:= to N do

      if A[I] > 0 then

         Sum := Sum + A[I];

   writeln('Sum=', Sum)

end.

2. Задан одномерный массив. Найти сумму чётных элементов массива.

X

C++

#include <iostream>

#include <string>

using std::string;

int main()

{

int const N=10;

int A[N+1];

int I, Sum;

for (I=1; I<=N; I++)

   std::cin >> A[I];

Sum = 0;

for (I=1; I<=N; I++)

   if (A[I]%2 == 0)

      Sum = Sum + A[I];

std::cout << "Sum=" << Sum;

}

X

Pascal

program Prim_2;

const

   N=10;

var

   A :array[1..N] of integer;

   I, Sum: integer;

begin

   for I:= to N do

      readln(A[I]);

   Sum := 0;

   for I:= to N do

      if A[I] mod 2 = 0 then

         Sum := Sum + A[I];

   writeln('Sum=', Sum)

end.

3. Задан одномерный массив. Найти произведение ненулевых элементов массива.

X

C++

#include <iostream>

#include <string>

using std::string;

int main()

{

int const N=10;

int A[N+1];

int I, Pr;

for (I=1; I<=N; I++)

   std::cin >> A[I];

Pr = 1;

for (I=1; I<=N; I++)

   if (A[I] != 0)

      Pr = Pr * A[I];

std::cout << "Pr=" << Pr;

}

X

Pascal

program Prim_3;

const

   N=10;

var

   A :array[1..N] of integer;

   I, Pr: integer;

begin

   for I:= to N do

      readln(A[I]);

   Pr := 1;

   for I:= to N do

      if A[I] <> 0 then

         Pr := Pr * A[I];

   writeln('Pr=', Pr)

end.

4. Задан одномерный массив. Найти произведение нечетных элементов массива.

5. Задан одномерный массив. Найти количество отрацательных элементов

6. Задан одномерный массив. Найти количество четных элементов и их произведение