Question

Viết chương trình nhập vào 1 mảng gồm 5 phần tử số nguyên. In ra màn hình giá trị các phần tử có giá trị chẵn. In ra thông báo tổng của mảng vừa nhập trên

Answer 1

Program HOC24;

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

t: longint;

i,n: integer;

begin

t:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

t:=t+a[i];

end;

write('Cac phan tu co gia tri chan : ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

write('Tông cua mang vua nhap la : ',t);

readln

end.