Дан массив вещественных чисел. Каждый отрицательный
элемент заменить на его абсолютную величину

var  A: array [1..10] of real;  i: byte;begin  randomize;  writeln('Сгенерированный массив.');  for i := 1 to 10 do  begin    A[i] := random * 11 - 5;    write(A[i]:4:2, ' ');  end;  writeln;  writeln('Измененный массив.');  for i := 1 to 10 do  begin    if A[i] < 0 then A[i] := abs(A[i]);    write(A[i]:4:2, ' ');  end;end.