Viết chương trình nhập vào mảng 1 chiều B có tối đa k quá 100 phần tử kiểu nguyên, sau đó nhập vào số nguyên k. a/ tính tổng các số là bội của k và là số chẵn b/ tính tích các số là ước dương của k
1 câu trả lời
Program BT;
Var n,i,t,tich,k : longint;
a : array [1..100] of longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until (n > 0) and (n <= 100);
t := 0;
tich := 1;
For i := 1 to n do
Begin
repeat
Write ('A[',i,']= ');Readln(a[i]);
until a[i] <> 0;
end;
Write ('Nhap K : ');Readln(k);
for i := 1 to n do
Begin
If (a[i] mod 2 = 0) and (a[i] mod k = 0) then t := t + a[i];
If (k mod a[i] = 0) and (a[i] > 0) then tich := tich * a[i]
end;
Writeln('a,Tong la : ',t);
Write ('b,Tich la : ',tich);
end.
