Câu 2:Cho dãy số A gồm n phần tử hãy tính tổng các số lẻ của dãy số? Giúp em với ạ e đang cần gấp e cảm ơn ạ

uses crt;
var a:array[1..100] of longint;
n,s,i:longint;
begin
clrscr;
write('n');
readln(n);
i:=0;
s:=0;
repeat
begin
i:=i+1;
write('a[',i,']=');
readln(a[i]);
if a[i] mod 2<>0 then S:=s+a[i];
end;
until
i>=N;
writeln('tong le',s);
readln
end.

program bai_giai;

uses crt;

var a:array[1..1000] of longint;i,n,s:lonignt;

begin

clrscr;

write('nhap n:');readln(n);

i:=0;

for i:=1 to n do

begin

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

if(a[i] mod 2=1)then s:=s+i;

end;

write('tong cac so le trong mang la:',s);

readln

end.