Заменить все отрицательные числа на их абсолютные значения

StinFox

В таблице из 20 чисел,лежащих в промежутке от -50 до 50,заменить все отрицательные числа на их абсолютные значения. заранее спасибо)
1 ответ

StinFox

Const n=20;
Var A:array[1..n] of integer;
    i:byte;
Begin
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random(101)-50;
      write(A[i]:4);
    End;
    writeln;
    writeln('Преобразованный');
    For i:=1 to n do
    Begin
      if A[i]<0 then A[i]:=abs(A[i]);
      write(A[i]:4);
    End;
    readln;
End.