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

0 bình luận về “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”

1. 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.

   Trả lời

2. 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!

   Trả lời