Tin học Xâu

[Duy Thiên]

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

Ai giúp mình vs mai mình kiểm tra r
........................................................................

 

[0toanđnn]

1. Cú pháp: Tên mảng: array [giá trị đầu .. giá trị cuối] of kiểu dữ liệu;
2.
Var a:array [ 1 .. 10] of integer;
N,i,t: integer;
Begin
Readln(N);
t:=0;
For i:=1 to N do
Begin
Read(a);
If (a mod 2=0) t:=t+a;
End;
Write(t);
End.


CHÚC BẠN HỌC TỐT!!!!

 

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

Ai giúp mình vs mai mình kiểm tra r
........................................................................

Var a:array [ 1 .. 10] of integer;
N,i,t: integer;
Begin
  write('nhap so phan tu cua mang:');
  Readln(n);
  t:=0;
  For i:=1 to n do
    Begin
      Read(a[i]);
      If a[i] mod 2=0 t:=t+a[i];
   End;
Write(t);
readln
End.

 

[Duy Thiên]

1. Cú pháp: Tên mảng: array [giá trị đầu .. giá trị cuối] of kiểu dữ liệu;
2.
Var a:array [ 1 .. 10] of integer;
N,i,t: integer;
Begin
Readln(N);
t:=0;
For i:=1 to N do
Begin
Read(a);
If (a mod 2=0) t:=t+a;
End;
Write(t);
End.


CHÚC BẠN HỌC TỐT!!!!

Bạn giúp mình đề 2 vs đc k ạ