Tin học Viết chương trình

[linh_1101]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập một dãy số in ra màn hình .Tính tổng của các số chẵn có trong danh sách.

 

[megamanxza]

Uses crt;
var a: array [1..1000] of integer;
n, i, tong: integer;
begin
clrscr;
write ('Nhap so luong phan tu: '); readln (n);
for i:= 1 to n do
begin
write ('Nhap phan tu thu ',i,': '); readln (a);
if a mod 2 = 0 then tong:=tong+a;
end;
clrscr;
write ('Cac phan tu trong day: ');
for i:= 1 to n do write (a,' ');
writeln;
write ('Tong cac so chan trong day la ',tong);
readln
end.
Nhấn thanks và đúng cho mình nha!