Bài 6. Câu lệnh điều kiện

Hường Nguyễn

Viết chương trình tính tổng các số chẵn có trong dãy n số cho trước.

Nguyễn Lê Phước Thịnh
14 tháng 11 2019 lúc 11:44

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;

{----------------xuat-day------------------}

for i:=1 to n do

write(a[i]:4);

{------------xu-ly-------------------------}

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then t:=t+a[i];

writeln('tong cac so chan co trong day la: ',t);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Viên Tiểu Mộng
21 tháng 10 2020 lúc 10:13

program tinh_tong;

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;

{----------------xuat-day------------------}

for i:=1 to n do

write(a[i]:4);

{------------xu-ly-------------------------}

writeln;

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then t:=t+a[i];

writeln('tong cac so chan co trong day la: ',t);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Minh Khang
Xem chi tiết
LQmobi Acc
Xem chi tiết
huu nguyen
Xem chi tiết
Giuly Marinette Thư
Xem chi tiết
Khanh Huynh
Xem chi tiết
phamthiminhanh
Xem chi tiết
Nguyen Hoang Khoi
Xem chi tiết
Không Tên
Xem chi tiết
Nguyễn Trường Sinh
Xem chi tiết