viết pt tạo mảng A gồm (n<=100) số nguyên. 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
2 câu trả lời
uses crt;
var a : array[1..100] of integer;
i, k, n, s : integer;
begin
clrscr;
write('nhap so n :');readln(n);
write('nhap so k :');readln(k);
s := 0;
for i := 1 to n do
begin
write('nhap so thu ', i ,' : ');readln(a[i]);
if a[i] mod k = 0 then s := s + a[i];
end;
writeln('tong la :', s);
readln
end.
uses crt;
var n, i, x, k, res: longint;
begin
clrscr;
read(n, k); readln;
for i:=1 to n do
begin
read(x);
if x mod k = 0 then inc(res, x);
end;
writeln(res);
readln; readln;
end.
