Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Складывать числа до встречи 0. Напечатать сумму. Если нуля нет, то вывести на экран «нет элемента, равного нулю». Например, если А = { 2, 4, 0, –6, 5, –2, 0, 7}, результат: 2 + 4 = 6. На языке паскаль

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -10, 10);

 a.Println;

 var s := a.TakeWhile(p -> p <> 0);

 Println(s.Sum)

 if s.Count = a.Length then

   Print('Нет элемента, равного нулю')

end.

#include<iostream>

#include<vector>

#include<iterator>

#include<ranges>

using namespace std;

int main()

{

vector<int> vec;

int sum=0;

istream_iterator<int> it{cin};

istream_iterator<int> end{};

while(it!=end)

{

vec.push_back(*it);

it++;

}

for(int i:vec | views::filter([](int i){return i%2==0;}))

{

sum+=i;

}

cout<<sum<<endl;

return 0;

}

2:

#include<iostream>

using namespace std;

int main()

{

int sum=0;

for(int i=2;i<=32;i+=3)

{

sum+=i;

}

cout<<sum<<endl;

return 0;

}

Объяснение:

#include<iostream>

#include<vector>

#include<iterator>

#include<ranges>

using namespace std;

int main()

{

vector<int> vec;

int sum=0;

istream_iterator<int> it{cin};

istream_iterator<int> end{};

while(it!=end)

{

vec.push_back(*it);

it++;

}

for(int i:vec | views::filter([](int i){return i%2==0;}))

{

sum+=i;

}

cout<<sum<<endl;

return 0;

}

2:

#include<iostream>

using namespace std;

int main()

{

int sum=0;

for(int i=2;i<=32;i+=3)

{

sum+=i;

}

cout<<sum<<endl;

return 0;

}

Объяснение: