Lập trình đơn giản

Nguyễn Linh

Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa nhập.

Nguyễn Lê Phước Thịnh
29 tháng 4 2021 lúc 18:03

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Nguyễn Ally
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Nhân lê
Xem chi tiết
Long Triệu
Xem chi tiết
Hưng Quốc
Xem chi tiết
Quỳnh
Xem chi tiết