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

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

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.