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ố
2 câu trả lời
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.
