Bài 11: Kiểu mảng

Nguyễn Phúc Hưng
Cho dãy số A gồm N số nguyên (N nhỏ hơn hoặc bằng 250) và dãy số A1,...An được nhập từ bàn phím.Đưa ra màn hình tổng các số chẵn có trong dãy
Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 21:42

uses crt;

var a:array[1..250]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.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Phúc Hưng
Xem chi tiết
Huỳnh Mai Anh Thư
Xem chi tiết
Hải Phong
Xem chi tiết
Sarah Lilia
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Duong Ngoc Khue
Xem chi tiết