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

var   A: array [1..120] of real;   i, res: integer; begin   randomize();   res := 0;     for i := 1 to 120 do   begin     A[i] := random(101);     writeln('A[', i, '] => ', A[i]);   end;   writeln();     for i := 1 to 120 do     if abs(A[i]) > 17 then       inc(res);     writeln(res); end. =================== var   C: array [1..20] of integer;   i, res: integer; begin   randomize();   res := 0;     for i := 1 to 20 do   begin     C[i] := random(101);     writeln('C[', i, '] => ', C[i]);   end;   writeln();     for i := 1 to 20 do     if C[i] mod 2 = 1 then       C[i] := -1 * C[i];     writeln('New array:');   for i := 1 to 20 do   begin     writeln('C[', i, '] => ', C[i]);   end; end.