Question

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

Answer 1

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.