Bài 11: Kiểu mảng

TT

Cho dãy số nguyên dương A=(a1,…,an) với 3<n<_100 viết đoạn chương trình in ra tổng số lẻ trong dãy số vừa nhập 

NT
10 tháng 2 2022 lúc 22:19

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(a[i]);

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

end;

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
SL
Xem chi tiết
PV
Xem chi tiết
HT
Xem chi tiết
SC
Xem chi tiết
TT
Xem chi tiết
HT
Xem chi tiết
HT
Xem chi tiết
H24
Xem chi tiết
ND
Xem chi tiết