Question

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

Answer 1

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]) > 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.

Answer 2

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