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.