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

Question

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

Answer 1

Замена отрицательных на положительные:
Так нужно было?

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]);  <br>   writeln(i:2,' ',mas[i]);   
  end;
     readln;     end.

Comments

Отписывайтесь если сделали! :)