Question

cho dãy A gồm N số nguyên dương A1,A2,A3...,An(N<=500),với N nhập từ bàn phím. Viết chương trình tính tích các số chẵn trong dãy. Đưa kết quả ra màn hình.

Yêu cầu viết và sử dụng các chương trình con sau:

- thủ tục nhập dãy số

- hàm tính tích số chẵn

Answer 1

uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------ctc-nhap------------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------------ctc-tinh-tich-cac-so-chan------------}
function tich(var c:mang):longint;
begin
s:=1;
for i:=1 to n do
if c[i] mod 2=0 then s:=s*c[i];
writeln(s);
end;
{------------chuong-trinh-chinh-----------------------}
begin
clrscr;
nhap(a);
tich(a);
readln;
end.

Answer 2

uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------ctc-nhap------------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------------ctc-tinh-tich-cac-so-chan------------}
function tich(var c:mang):longint;
begin
s:=1;
for i:=1 to n do
if c[i] mod 2=0 then s:=s*c[i];
writeln(s);
end;
{------------chuong-trinh-chinh-----------------------}
begin
clrscr;
nhap(a);
tich(a);
readln;
end.