viết chương trình in ra màn hình các số x và y là số chẵn và chia hết cho 3. Đếm xem có bao nhiêu số?? Giúp mik vs ???????? hứa 5 sao

0 bình luận về “viết chương trình in ra màn hình các số x và y là số chẵn và chia hết cho 3. Đếm xem có bao nhiêu số?? Giúp mik vs ???????? hứa 5 sao”

1. program nhap;

   uses crt;

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

   n,i,dem:integer;

   begin writeln (‘nhap vao so phan tu cua mang’);readln (n);

   for i:=1 to n do readln (A[i]);

   write (‘cac so chia het cho 3 la: ‘);

   for i:=1 to n do

   if (A[i] mod 3 =0) then

   begin

   write (A[i]);

   dem:=dem+1;

   end;

   writeln (‘co tat ca ‘,dem,’ so chia het cho 3′);

   readln;

   end.

   Sai thì các bạn bổ sung nha vì mình vẫn còn kém lắm

   Bình luận