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

Вычисление модуля реализуем с помощью функции Pascal - abs (x).

Program mod;

var

A: array[1 ... 100] of real;

n, i: integer;

begin

for 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],' ');

readln

end.

Можно вообще все действия записать одним циклом:

for i:=1 to n do

begin readln (A[i]);

if A[i]<0 then A[i]:=abs (A[i]);

write (A[i],' ');

end.