Содержание верного ответа и указания по оцениванию
(допускаются иные формулировки ответа, не искажающие его смысла)
Заводим новый целочисленный массив той же длины. В цикле от первого
элемента до последнего сравниваем элементы исходного массива с нулем и
отрицательным элементам меняем знак. Записываем значения в элементы
второго массива с тем же номером. Печатать значения массива не
обязательно.
Пример правильной и эффективной программы (на основе алгоритма,
использующего однократный проход по массиву):
const N=30;
var a, b:array[1..N] of integer;
i: integer;
begin
for i:=1 to N do read(a[i]);
for i:=1 to N do
if a [i] < 0
then b[i]:=-a[i]
else b[i]:=a[i];
end.