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

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