Cho dãy số nguyên A1,…An (N<= 100 ) và số tự nhiên K. Hãy lập trình +) nhập N , dãy A1,...An và K +) Tính và đưa ra màn hình tổng các số chia hết ch

0 bình luận về “Cho dãy số nguyên A1,…An (N<= 100 ) và số tự nhiên K. Hãy lập trình +) nhập N , dãy A1,...An và K +) Tính và đưa ra màn hình tổng các số chia hết ch”

1. program ct;

   uses crt;

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

         i,n,k:integer;

         S:longint;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

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

        end;

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

      for i:=1 to n do

        if A[i] mod k=0 then S:=S+A[i];

      write(‘Tong cac so chia het cho k la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. uses crt;
   var a:array[1..100]of integer;
   i,n,k,t:integer;
   begin
   clrscr;
   write(‘n=’); readln(n);
   if (0<n) and (n<=100) then
   begin
   for i:=1 to n do
   begin
   write(‘a[‘,i,’]=’); readln(a[i]);
   end;
   write(‘k=’); readln(k);
   t:=0;
   for i:=1 to n do
   if a[i] mod k=0 then t:=t+a[i];
   writeln(‘tong cac so chia het cho ‘,k,’ trong day la: ‘,t);
   end
   else writeln(‘vui long nhap lai n’);
   readln;
   end.

   Bình luận