Giúp mình câu này với ạ!!! Tạo mảng A gồm n phần tử (n<=100) số nguyên. Viết chương trình đếm và in ra có bao nhiêu phần tử là số nguyên dương lẻ tron

0 bình luận về “Giúp mình câu này với ạ!!! Tạo mảng A gồm n phần tử (n<=100) số nguyên. Viết chương trình đếm và in ra có bao nhiêu phần tử là số nguyên dương lẻ tron”

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       dem,i,n: integer;
   begin
       clrscr;
       write(‘nhap so phan tu cua mang: ‘); readln(n);
       for i:=1 to n do
           begin
               write(‘a[‘,i,’]: ‘);
               readln(a[i]);
           end;
       dem:=0;
       for i:=1 to n do 
           if (a[i]>0) and (a[i] mod 2=1) then 
               dem:=dem+1;
       writeln(‘so phan tu nguyen duong le trong mang: ‘,dem);
       readln; 
   end.

   Trả lời

2. Program dem_so;

   Uses crt;

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

                  d,i,n: integer;

   Begin 

   Write (‘nhap n=’); 

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’=’);

   Readln (A[i]);

   end;

   d:=0;

   For i:=1 to n do 

   If (A[i]>0) and (A[i] mod 2=1) then 

   d:=d+1;

   Writeln (‘Co ‘,d,’ phan tu la so nguyen duong le trong mang’);

   Readln 

   End.

   Trả lời