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ố lớn 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ố lớn hơn 0”

1. Uses crt;

   Var a:array[1..5000] of real;

   i,n:integer;

   Begin

   Clrscr;

   Write(‘Nhap so ptu N= ‘); Readln(n);
   For i:=1 to n do
   Begin
   Write(‘Nhap so a[‘,i,’]= ‘); Readln(a[i]);
   End;
   Write(‘Cac so lon hon 0 trong day tren do la: ‘);
   For i:=1 to n do If a[i]>0 then
   Begin
   Write;
   Write(a[i]:5:2,’ ‘);
   End;
   Readln
   END.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks 😀

   Bình luận

2. 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 lon hon 0: ‘);

            for i:=1 to n do

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

   readln;

   end.

   Bình luận