Программирование 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.