anh chị giúp em với

[zindainhan]

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

Em mới tìm hiểu về pascal có bài toán sau ! ai giúp em với ạ hướng dẫn em chi tiết cách giải với tại em mới học chưa hiểu gì lắm
Nhập vào 1 dãy số nguyên A(AthuộcZ,A1...A10)tính tổng các số nguyên và tổng số chẵn

 

[stardustdragon]

Đây là tổng a số nguyên bất kì ( a nhập từ bàn phím)

Uses crt;
Var a,b,i,S:longint;
Begin
 Clrscr;
 Write('Nhap so so hang can tinh tong :'); readln(a);
 Write('Nhap so thu nhat : ;);
 S:=0;
 For i:=2 to a do
   Begin
     Write('Nhap so thu ',i,' : ');readln(b);
      S:=S+b;
   End;
 Write('Tong la : ', S);
 Readln
End.

Thank ho cai

 

[stardustdragon]

Đây la tính tổng các số chẵn

Uses crt;
Var a,b,i,S:longint;
Begin
 Clrscr;
 Write('Nhap so so hang can tinh tong :'); readln(a);
 Write('Nhap so thu nhat : ;);
 S:=0;
 For i:=2 to a do
   Begin
     Write('Nhap so thu ',i,' : ');readln(b);
     If b mod 2 = 0 then S:=S+b;
   End;
 Write('Tong la : ', S);
 Readln
End.

Thanks ho cai