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

вот, поправил

program a2;var c:array[1..20] of integer;i:integer;beginrandomize();for i:=1 to 20 dobeginc[i]:=random(25);if c[i] mod 2 = 1 then c[i]:=c[i]*(-1);write(c[i],' ');end;end.

зачем вы выделяете вектора, когда количество элементов известно??? к тому же в школах они не изучаются, а про итераторы я вообще молчу.