1.Задан массив А(120). Подсчитать в нем количество элементов,абсолютная величина которых больше 17
2. Задан массив С(20). Изменить знаки всех нечётных элементов массива на противоположные
Помогите пожалуйста

Program a1;
var a:array[1..120] of integer;
i,s:integer;
begin
randomize();
for i:=1 to 120 do
begin
a[i]:=random(50);
write(a[i], );
if abs(a[i]) gt; 17 then s:=s+1;
end;
write(s);
end.

program a2;
var c:array[1..20] of integer;
i:integer;
begin
randomize();
for i:=1 to 20 do
begin
c[i]:=random(25);
c[i]:=c[i]*(-1);
write(c[i], );
end;
end.

1. c++
std::vectorlt; int gt; A;
...// заполнение массива
int result = std::count_if(A.begin(), A.end(), [](int arg) -gt; bool {return abs(arg) gt; 17;});
2. c++
std::vectorlt; int gt; C;
...// заполнение массива
for (auto amp; iter: C)
     if (iter 2 == 1) iter *= -1;