В условии задачи было бы неплохо указывать размер и тип массива и язык программирования на котором необходимо сделать задание.
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.
