viết chương trình nhập dãy số gồm N số nguyên (1≤N≤20) thông báo ra màn hình tổng các phần tử là số lẻ của dãy số

program bai_giai;

uses crt;

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

begin

clrscr;

write('nhap 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 chu so le trong day la:',s);

readln

end.

program bai_giai;

uses crt;

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

begin

clrscr;

write('nhap 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 chu so le trong day la:',s);

readln

end.