Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng Long Đậu

Làm giúp mình bài này với ạ,mình đang cần gấp

Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An

Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 0:03

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.


Các câu hỏi tương tự
nguyễn thu thủy
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
jennierubyjane
Xem chi tiết
Uchiha Obito
Xem chi tiết
Minh Đạt
Xem chi tiết
Thư ĐT
Xem chi tiết
Huyền Trần
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết