Bài 11: Kiểu mảng

NH
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
NT
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ự
NH
Xem chi tiết
HT
Xem chi tiết
HP
Xem chi tiết
SL
Xem chi tiết
ON
Xem chi tiết
ND
Xem chi tiết
HT
Xem chi tiết
HT
Xem chi tiết
DK
Xem chi tiết