Bài 4. Sử dụng biến trong chương trình

minh nhật

Viết chương trình nhập 20 số nguyên từ bàn phím,tính tổng các số lẻ trong các số đó.

Minh Lệ
7 tháng 6 2020 lúc 12:54

Program HOC24;

Var i: integer;

a: array[1..32000] of integer;

t: longint;

begin

t:=0;

for i:=1 to 20 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

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

end;

write('Tong cac so le trong 20 so do la : ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Huỳnh Thanh Trúc
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Trâm Đây Này
Xem chi tiết
Vanh Nguyễn
Xem chi tiết
Trần Hải Long Trần
Xem chi tiết
le thi minh phuong
Xem chi tiết
Nguyễn Mỹ Uyên
Xem chi tiết
01 Nhung Anh 8/19
Xem chi tiết
La Thị Thu Phượng
Xem chi tiết
Tấn Nguyên
Xem chi tiết