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

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

Viết một bình luận