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 ạ

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.