Viết chương trình đếm số phần tử dương có trong mảng nguyên A gồm 15 phần tử được nhập từ bàn phím

0 bình luận về “Viết chương trình đếm số phần tử dương có trong mảng nguyên A gồm 15 phần tử được nhập từ bàn phím”

1. program dem_duong;

   uses crt;

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

         i,d:byte;

   begin

          clrscr;

          d:=0;

          for i:=1 to 15 do

                 begin

                        write(‘A[‘,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. uses crt;

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

   i,dem:byte;

   begin

            clrscr; dem:=0;

            for i:=1 to 15 do 

                     begin

                              write(‘Nhap a[‘,i,’]= ‘);readln(a[i]);

                              if a[i]>0 then inc(dem);

                     end;

            writeln(‘Co ‘,dem,’ phan tu duong’);

   readln;

   end.

   Bình luận