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

NL

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.

NT
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.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
H24
Xem chi tiết
NA
Xem chi tiết
T8
Xem chi tiết
PA
Xem chi tiết
NL
Xem chi tiết
LT
Xem chi tiết
HQ
Xem chi tiết
QM
Xem chi tiết