Дано n чисел. Замените все отрицательные числа их модулями. Язык программирования Паскаль. Запишите с помощью массивов.

Вычисление модуля реализуем с помощью функции Pascal - abs(x).Program mod;varA: array[1..100] of real;n,i: integer;beginfor i:=1 to n do readln(A[i]);for i:=1 to n do if A[i]<0 then A[i]:=abs(A[i]);for i:=1 to n do write(A[i],\' \');readlnend.Можно вообще все действия записать одним циклом:for i:=1 to n do begin readln(A[i]); if A[i]<0 then A[i]:=abs(A[i]); write(A[i],\' \'); end.