Question

Em hãy viết chương trình nhập dãy số nguyên gồm a.X phần tử từ bang phím b. Tính tổng các phần tử chia hết cho 2 trong dãy số c.In ra màn hình kết quả tính tổng và các giá trị dãy số đã nhập theo hàng ngang và mỗi số cách nhau 5 khoảng trống

Answer 1

Var a:array[1..1000] of integer;

i,x:integer;

s:longint;

Begin

Write('x = ');readln(x);

For i:=1 to x do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

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

End;

writeln('Tong cac so chia het cho 2 la ',s);

write('Cac so vua nhap la ');

for i:=1 to x do write(a[i]:5);

Readln

End.