Viết Chương trình nhập vào một mảng đến các số nhỏ hơn 1

0 bình luận về “Viết Chương trình nhập vào một mảng đến các số nhỏ hơn 1”

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

          D, i, n: byte;

   Begin

           Write(‘nhap n: ‘); readln(n);

           D:=0;

           For i:=1 to n do

                 Begin

                       Write(‘nhap a[‘, i, ‘] = ‘);

                       Readln(a[i]);

                       If a[i]<1 then inc(d);

                 End;

           Write(‘co ‘, d, ‘ so nho hon 1’);

           Readln

   End.

   Bình luận

2. program nho_hon1;

   uses crt;

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

        n,i,d:byte;

   begin

          clrscr;

          write(‘Nhap so luong phan tu cua mang: ‘);  readln(n);

          d:=0;

          for i:=1 to n do

                 begin

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

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

                 end;

          write(‘Co ‘,d,’ so nho hon 1′);

          readln;

   end.

   Bình luận