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

program zz1;

var i:integer; / / задаем переменную целого типа

x:array [1 ... 8] of real;

begin

for i:=1 to 8 do / / организуем цикл, в котором введем с клавиатуры n заданных чисел в массив

read (x[i]);

for i:=1 to 8 do / / организуем цикл, в котором проверяем число из массива и если оно отрицательное, то применяем к нему функцию модуля, в результате чего число поменяет знак на противоположный

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

for i:=1 to 8 do

write (x[i],' '); / / выводим полученные числа из массива в строку через пробел

end.