Viết chương trình nhập vào một dãy số đếm xem trong dãy có bao nhiêu phần tử dương

Viết chương trình nhập vào một dãy số đếm xem trong dãy có bao nhiêu phần tử dương

0 bình luận về “Viết chương trình nhập vào một dãy số đếm xem trong dãy có bao nhiêu phần tử dương”

  1. program so_duong;

    uses crt;

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

          n,i,d:integer;

    begin

           clrscr;

           write(‘Nhap so luong phan tu cua day: ‘);  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;

           write(‘Co ‘,d,’ so duong’);

           readln;

    end.

    Bình luận
  2. program gi_cung_dc;

    uses crt;

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

          n,i,s :integer;

    begin

           clrscr;

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

           s :=0;

           for i:=1 to n do

                  begin

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

                         if A[i]>0 then s:=s+1;

                  end;

           write(‘Co ‘,s,’ so duong’);

           readln

    end.

    (CHÚC BẠN HỌC TỐT^_^)

    Bình luận

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