Viết công thức nhập vào 5 số từ bàn phím. Tìm và in ra tổng các số chẵn. Trong con chương trình có sử dụng hàm tìm và tính tổng các số chẵn trong 5 số.
2 câu trả lời
program ct;
uses crt;
type M=array[1..1000] of integer;
var A:M;
i:integer;
function N(x:M):integer;
var S:longint;
begin clrscr;
S:=0;
for i:=1 to 5 do
if x[i] mod 2=0 then S:=S+x[i];
N:=S;
end;
begin
for i:=1 to 5 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
N(A);
writeln('Tong cac so chan: ',N(A));
readln;
end.
Học tốt!
type cs= array[1..1000] of integer;
var a: cs;
i: byte;
function tc(x: cs): integer;
var s: integer;
begin
s := 0;
for i:=1 to 5 do
if x[i] mod 2=0 then s:=s+x[i];
tc := s;
end;
Begin
writeln('Nhap 5 so: ');
for i:=1 to 5 do
begin
write('a[',i,']= ');
readln(a[i]);
end;
tc(a);
writeln('Tong cac so chan: ',tc(a));
readln;
End.
