#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2!=0) t+=x;

}

cout<<t;

return 0;

}

các bạn ơi chỉ mình với

Var a:array[1..200] of integer;

i,n:integer;

s:longint;

Begin

Write('Nhap so luong so ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:6);

Writeln;

Write('Tong la ');

For i:=1 to n do s:=s+a[i];

Write(s);

Readln;

End.

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap n '); readln(n);

for i:=1 to n do 

begin

write('a[',i,']= '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

cứu em với mn còn 30p cuối thôi

program UCLN_BCNN_TichMang;

uses math;

var

n, m, i: integer;

a, b: array[1..100] of int64;

tichA, tichB: int64;

ucln, bcnn: int64;

function GCD(x, y: int64): int64;

begin

while y <> 0 do

begin

x := x mod y;

x := x + y;

y := x - y;

x := x - y;

end;

GCD := x;

end;

begin

readln(n);

for i := 1 to n do

read(a[i]);

readln(m);

for i := 1 to m do

read(b[i]);

tichA := 1;

for i := 1 to n do

tichA := tichA * a[i];

tichB := 1;

for i := 1 to m do

tichB := tichB * b[i];

ucln := GCD(tichA, tichB);

bcnn := (tichA div ucln) * tichB;

writeln('UCLN = ', ucln);

writeln('BCNN = ', bcnn);

end.

Câu 1.

Câu 2

Program HOC24;

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

i,n : integer;

t: longint;

begin

write('Nhap N: '); realdn(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 3 = 0 then t:=t+a[i];

write('Tong cac so la boi cua 3 trong danh sach la: ',t);

readln

end.