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

там где ввод чисел и вывод в скобках так и остовлять ?

если в тетради пишешь, то наверное можно, нам по крайней мере так советовали делать

ибо зачем писать лишнее

program qq;var a :array [1..6] of real; i :integerbegin[ВВОД ЧИСЕЛ]For i:=1 to 6 do beginIf a[i]<0 then begina[i]:=ABS(a[i]);end;end;[ВЫВОД]end.