viết chương trình nhập vào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 và tích của chúng là bao nhiêu

0 bình luận về “viết chương trình nhập vào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 và tích của chúng là bao nhiêu”

1. program ct;

   uses crt;

   var i,n,d,T:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   d:=0;

   T:=1;

   for i:=1 to n do 

       if A[i] mod 3=0 then d:=d+1;

   writeln(‘so chia het cho 3 la:’,d);

        for i:=1 to n so T:=T*A[i];

   writeln(‘tich la:’,T);

   readln

   end.

   Bình luận