Uses SysUtils,Windows; var a:array of Integer; i,n,s,o:Integer; begin o:=0; s:=0; SetConsoleOutputCP(1251); Randomize; write('Введите "N": '); readln(n); SetLength(a,n); for i:=0 to Length(a) do begin a[i]:=Random(10)-5; write(a[i]:3); end; Writeln; Writeln; for i:=0 to Length(a) do begin if a[i] mod 2=1 then Inc(s); if a[i]<0 then Inc(o); a[i]:=a[i]*(-1); end; Writeln('Кол-во отрицательных элементов: ',o); Writeln('Кол-во нечетных элементов: ',s); Writeln; for i:=0 to Length(a) do write(a[i]:3); readln; end.
#include <algorithm>
#include <vector>
int main()
{
// Заполняем.
const int n = 1000;
std::srand(time(0));
std::vector<unsigned int> arr(n);
std::generate(arr.begin(), arr.end(), std::rand);
// Находим первые два четных элемента.
auto lambda = [](const unsigned int & i){ return (i % 2) == 0; };
auto iEven1 = std::find_if(arr.begin(), arr.end(), lambda);
auto iEven2 = std::find_if(iEven1 + 1 , arr.end(), lambda);
unsigned int nEven1 = *iEven1;
unsigned int nEven2 = *iEven2;
// Изменяем.
bool isTurn = false;
std::transform(iEven2 + 1, arr.end(), iEven2 + 1,
[&isTurn, &nEven1, &nEven2](unsigned int i){
unsigned int t = i;
i = nEven1 * nEven2;
if (t % 2) return i;
isTurn = !isTurn;
if (isTurn) nEven1 = t;
else nEven2 = t;
return i;
});
return 0;
}