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

program zz1;

const n=5; / /вводим заданное число n

var i:integer;

a:array[1 ... n] of integer;

begin

for i:=1 to n do / /вводим числа из ряда через пробел в строку

read (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],' '); / /выводим числа из массива на экран

end.