Nhập mảng A gồm N phần tử (N<=10). Đổi tất cả các số âm trong mảng thành số dương. Đưa kết quả ra màn hình

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.

program ct;

uses crt;

var A:array[1..10] of integer;

      i,n:integer;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   writeln('Mang A: ');

   for i:=1 to n do

     begin

        if A[i]<0 then A[i]:=A[i]*(-1);

        write(A[i]:3);

     end;

readln;

end.

Học tốt!