viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình các chữ số bé hơn 0

0 bình luận về “viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình các chữ số bé hơn 0”

1. uses crt;

   var a:array[1..1000] of integer;

   i,n:integer;

   begin

            clrscr;

            write(‘Nhap n: ‘);readln(n);

            for i:=1 to n do 

                   begin

                              write(‘Nhap a[‘,i,’]= ‘);

                              readln(a[i]);

                     end;

            write(‘Cac so be hon 0: ‘);

            for i:=1 to n do

                     if a[i]<0 then write(a[i],’ ‘);

   readln;

   end.

   Bình luận

2. program be_hon_0;

   uses crt;

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

        n,i,d:integer;

   begin

       clrscr;

       write(‘Nhap n: ‘);   readln(n);

       d:=0;    

       for i:=1 to n do

           begin

               write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

               if A[i]<0 then d:=d+1;

           end;

       if d=0 then write(‘Khong co so nao be hon 0’)

       else for i:=1 to n do

           if A[i]<0 then write(A[i],’ ‘);

       readln;

   end.

   Bình luận