giúp mình bài passcal kiểu mảng này với?? giúp mình với. mình cần gấp

[bobo_smo]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

cho số nguyên dương N ( N nhỏ hơn hoặc bằng 250) và dãy B gồm N số nguyên dương B1 B2 B3.. Bn
Háy viết chương trình tính tổng các số lẻ trong dãy B

 

[justinsang]

Program bt;
var b:array[1..1000] of integer;
n,s,i:longint;
begin
Writeln('Nhap N');readln(n);
writeln('Nhap cac phan tu cua mang');
for i:=1 to n do
begin
writeln('b[',i,']=');readln(b);
end;

for i:=1 to n do
if b mod 2 <> 0 then s:=s+b;

writeln('Tong cac so le mang B=',s);
readln
end.