Tạo mảng A gồm n(n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội số của 1 số nguỷen dương k c

0 bình luận về “Tạo mảng A gồm n(n<=100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội số của 1 số nguỷen dương k c”

1. program boiso_k;

   uses crt;

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

         n,i:byte;

         t,k:integer;

   begin

        clrscr;

        write(‘So k= ‘);  readln(k);

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

        t:=0;

        for i:=1 to n do

             begin

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

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

             end;

        write(‘Tong cac so la boi cua ‘,k,’ trong mang la: ‘,t);

        readln;

   end.

   Bình luận