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.