Uses Crt; Var i, n: integer; a: array [1..100] of integer; BEGIN Clrscr; Write('Nhap n= '); Readln(n); For i:=1 to n do Begin Write('a[',i,']= '); Readln(a[i]); End; For i:=1 to n do If a[i]<0 Then a[i]:=a[i]*(-1); Write('Day sau khi chuyen doi: '); For i:=1 to n do Write(a[i],' '); Readln; END.
