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

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

1. program lon_nho;

   uses crt;

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

         n,i:integer;

   begin

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

        for i:=1 to n do

              begin

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

              end;

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

        for i:=1 to n do

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

        writeln;

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

        for i:=1 to n do

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

        readln;

   end.

   Bình luận

2. Var n,i : integer;

         A: array [1..100] of integer;

   begin

      writeln(‘Do dai cua day so la:’);Readln(n);

   for i:=1 to n do begin

   readln(A[i]);

   If A[i]=0 then begin

   writeln(‘Hay nhap lai so’);readln(A[i]);

   end;

   If A[i] > 0 then writeln(‘Cac so lon hon 0 la:’,A[i],’   ‘,)

                    else writeln(‘Cac so nho hon 0 la:’,A[i],’   ‘,)

   end;

   Readln

   end.

   (có thể có 1 số phần mình viết sai hoặc nhầm)

   Bình luận