Bài 5. Từ bài toán đến chương trình

nguyen thao

Viết chương trình mảng số nguyên nhập n phần tử và in tổng các giá trị phần tử là số chẵn

Nguyễn Lê Phước Thịnh
16 tháng 6 2020 lúc 13:21

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('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 chan la: ',t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
nguyen thao
Xem chi tiết
Hằng Võ Thanh
Xem chi tiết
Alice
Xem chi tiết
My Nguyen
Xem chi tiết
Mai Thị Mỹ Ngọc
Xem chi tiết
baopham
Xem chi tiết
Tuấn Kiệt Phạm
Xem chi tiết
phạm ngọc hân
Xem chi tiết
Mai Thị Bảo Phương
Xem chi tiết