Bài 11: Kiểu mảng

Thái Thích
Viết chương trình nhập vào dãy gồm n số nguyên a1 a2...ăn đưa ra màn hình tổng các số lẻ
Nguyễn Lê Phước Thịnh
4 tháng 2 2021 lúc 21:38

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('Tong cac so le la: ',t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Phong Vũ
Xem chi tiết
Sarah Lilia
Xem chi tiết
Luyến
Xem chi tiết
Sói Channel
Xem chi tiết
Nguyễn Phú Trọng
Xem chi tiết
nông thị ngân
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Hoangf Thu
Xem chi tiết