Замените отрицательные элементы массива на положительные.

В условии задачи было бы неплохо указывать размер и тип массива и язык программирования на котором необходимо сделать задание.

Program Masiv;

Uses Crt;

const n=15; {у нас массив будет 15 элементов и целочисленный}

{если размер и тип другие поменяй значение n и тип}

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

i:integer;

begin

clrscr;

write ('Введите элементы массива:') ;

for i:=1 to n do readln (a[i]) ;

writeln;

write ('Исходный массив:')

for i:=1 to n do write (a[i]:3) ;

for i:=1 to n do

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

writeln;

write ('Обработанный массив:')

for i:=1 to n do write (a[i]:3) ;

readkey;

end.