Tin học Lập hàm

[vatli11a]

[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.

Cho dau vao b5.inp va dau ra b5.out xay dung thu tuc nhap N phan tu mang A. LAp ham tính tong so phan tu chan va tong cua Chung dua da tep b5.out

 

[Trâm Nguyễn Thị Ngọc]

Cho dau vao b5.inp va dau ra b5.out xay dung thu tuc nhap N phan tu mang A. LAp ham tính tong so phan tu chan va tong cua Chung dua da tep b5.out

Var
  A:array[1..100] of integer;
  T,i,n:integer;
 Procedure nhap;
 Begin
   Assign(fi,'b5.inp');reset(fi);
   Assign(fo,'b5.out');rewrite(fo);
   Readln(fi,n);
   For i:=1 to n do
     Read(fi,a[i]);
  End;
  Procedure xuly;
  Begin
   T:=0;
   For i:=1 to n do
     If a[i] mod 2=0 then t:=t+a[i];
   Write(fo,t);
   Close(fi);close(fo);
  End;
Begin
  Nhap;
  Xuly;
End.

Check lại xem sao ạ, tại đề ko dấu nên khúc cuối em đọc ko hiểu lắm.