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

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