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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.