Gấp ạ:(, giúp mình với Viết chương trình nhập vào 1 dãy số nguyên A1, A2, A3… AN (N<=150) . Hãy tính và đưa ra màn hình tổng các số chẵn chia hết ch

0 bình luận về “Gấp ạ:(, giúp mình với Viết chương trình nhập vào 1 dãy số nguyên A1, A2, A3… AN (N<=150) . Hãy tính và đưa ra màn hình tổng các số chẵn chia hết ch”

1. uses crt;

   var a: array[1..150] of longint;

         n,s,i: longint;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

    write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

    if (a[i] mod 4=0) and (a[i] mod 2=0) then s:=s+a[i];

   end;

   writeln (‘tong cac so chan chia het cho 4: ‘,s);

   readln;

   end.

   Bình luận