Ôn tập cuối năm

TN

viết chương trình nhập một dãy gồm n số nguyên từ bàn phím . Tính tổng dãy số vừa nhập,tìm số lượng các phần tử là số lẻ
 Giup minh voi minh can gap

KL
29 tháng 4 2022 lúc 15:41

Var a:array[1..200] of integer;

s,i,n,dem:integer;

begin

write('Nhap n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

for i:=1 to n do

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

writeln('Tong la ',s);

writeln('So luong cac phan tu la so le la ',dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
BD
Xem chi tiết
NT
Xem chi tiết
PD
Xem chi tiết
VV
Xem chi tiết
V4
Xem chi tiết
NM
Xem chi tiết
VT
Xem chi tiết
TT
Xem chi tiết
PL
Xem chi tiết