Программирование Pascal. Изменить определенное значение в массиве, если значение отрицательное, то поменять знак элемента.

Замена отрицательных на положительные:

Так нужно было?

uses crt; var mas:array [1 ... 6] of integer; a, i, j:integer;

beginrandomize;

for i:=1 to 6 do

begin

mas[i]:=random (60) - 50;

writeln (i:2,' ', mas[i])

end; readln;

for i:=1 to 6 do

begin

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

writeln (i:2,' ', mas[i]) ;

end;

readln; end.