VCT nhập n số nguyên, tính TBC các số chẵn lớn hơn 30, chi hết cho 3

0 bình luận về “VCT nhập n số nguyên, tính TBC các số chẵn lớn hơn 30, chi hết cho 3”

1. program tinh_TBC;

   uses crt;

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

         n,i,t:integer;

   begin

         clrscr;

         write(‘Nhap n: ‘);  readln(n);

         t:=0;

         for i:=1 to n do

               begin

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

                     if (A[i]>30) and (A[i] mod 3=0) then t::=t+A[i];

               end;

         write(‘Tong cac so lon hon 30, chia het cho 3 la: ‘,t);

         readln;

   end.

   Bình luận