Question

Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hãy giúp hai bạn viết chương trình Pascal hoàn thiện thực hiện:

 

- Khai báo mảng 1 chiều gồm 10 phần tử chứa các số nguyên.

 

- Nhập giá trị bất kì cho 10 phần tử đó.

 

- Kiểm tra xem những phần tử nào thỏa mãn là số chẵn thì tính tổng.

 

- Thông báo tổng đó ra màn hình.

Cảm ơn ạ

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.