cho N và dãy a1, a2 … an và số K tính tổng các phần tử chia hết cho K có trong dãy

0 bình luận về “cho N và dãy a1, a2 … an và số K tính tổng các phần tử chia hết cho K có trong dãy”

1. program BT;

   uses crt;

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

   i,k,n,m:integer;

   begin

   clrscr;

   m:=0;

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

   for i:=1 to n do

   begin

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

   end;

   write(‘Nhap K: ‘); readln(k);

   for i:=1 to n do

   if a[i] mod k = 0 then m:=m+a[i];

   write(‘Tong cac phan tu chia het cho K co trong day: ‘,m);

   readln;

   end.

   Bình luận