Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Thúy Ngọc

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

Kiều Vũ Linh
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.


Các câu hỏi tương tự
Bao Duong
Xem chi tiết
Ngọc Ty
Xem chi tiết
Phạm Hữu Đức
Xem chi tiết
Vẹt Vẹt
Xem chi tiết
Vãn Ninh 4.0
Xem chi tiết
Nguyễn Khải Minh
Xem chi tiết
Văn Tèo Trần
Xem chi tiết
Thánh Tiền
Xem chi tiết
Phạm Linh
Xem chi tiết