Question

1) viết chương trình có sử dụng chương trình con để thực hiện yêu cầu sau:

a) thủ tục nhập vào số nguyên N phần tử (N<=100)

b) hàm tính tổng các số chẵn

c) gọi chương trình con để thực hiện và in kết quả tính tổng các số chẵn ra màn hình

Answer 1

Program HOC24;

var i,n: integer;

t: longint;

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

procedure ip;

begin

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

end;

function chan(x: integer): longint;

var tong: longint;

begin

t:=0;

if x mod 2=0 then tong:=x;

chan:=tong;

end;

begin

ip;

for i:=1 to n do t:=t+chan(a[i]);

write(t);

readln

end.