Question

Tạo mảng A gồm n (\(n\le100\)) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300.Viết chương trình tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước. 

Answer 1

uses crt;

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

i,n,t,k:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

readln(k);

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

Answer 2

Uses crt;
Var A: array[1..100] of longint;
    n，k，i，s: longint;
Begin
Clrscr;
Write(‘Nhap n，k: ‘); Readln(n，k);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod k = 0 then s:=s+A[i];
End;
Write(s);
Readln
End.