Bài 17: Chương trình con và phân loại

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

Viết chương trình (sử dụng chương trình con) hãy nhập một dãy số nguyên dương từ bàn phím sau đó tính và hiển thị lên màn hình tổng của các số chẵn

Nguyễn Lê Phước Thịnh
13 tháng 4 2021 lúc 12:17

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(t);

readln;

end.


Các câu hỏi tương tự
Đạt Trần
Xem chi tiết
Thúy Hà
Xem chi tiết
hà nội 123
Xem chi tiết
Tuấn Lê
Xem chi tiết
Tuấn Lê
Xem chi tiết
Thanh Hải
Xem chi tiết
Trường
Xem chi tiết
Vương Thế Tài
Xem chi tiết
Phương Bùi Thu
Xem chi tiết