Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
  a.Println;
  a.Transform(t->t<0?-t:t); a.Println
end.

Пример
n= 13
5.1 -6.3 3.1 -6.5 -0.7 -4.3 5.1 1.5 -8.8 -4.2 4.3 -4.2 -5.9
5.1 6.3 3.1 6.5 0.7 4.3 5.1 1.5 8.8 4.2 4.3 4.2 5.9

Answer 2

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.