câu 1 viết chương trình tính tổng các số nguyên lẻ có trong dãy A gồm n phân tử câu 2 viết chương trình tính tích các số nguyên trong dãy A là bội số nguyên k giúp em với ạ
2 câu trả lời
program bai_giai;
uses crt;
var n,i,s:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
s:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(a[i] mod 2=1)then s:=s+a[i];
end;
write('tong cac so nguyen le trong day so la:',s);
readln;
end.
------------------------------------------
program bai_giai;
uses crt;
var n,i,s,k:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
write('k=');readln(k);
s:=1;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(a[i] mod k=0)then s:=s*a[i];
end;
write('tich cac so la boi cua k trong day so la:',s);
readln;
end.
Câu 1:
Program baitap1;
Uses crt;
Var A:array[1..200] of integer;
i,n:integer;
S:longint;
Begin
Clrscr;
S:=0;
Write('n='); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
If A[i] mod 2=1 then S:=S+A[i];
End;
Writeln('Tong cac so nguyen le:',S);
Readln
End.
Câu 2:
Program baitap2;
Uses crt;
Var A:array[1..200] of integer;
i,n,k:integer;
S:longint;
Begin
Clrscr;
S:=1;
Write('n='); Readln(n);
Write('k='); Readln(k);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
If A[i] mod k=0 then S:=S*A[i];
End;
Writeln('Tich cac so nguyen la boi cua k:',S);
Readln
End.
