Bài tập 6:

var i,n:integer;

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

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i); read(a[i]);

end;

writeln;

writeln('Vi tri cua nhung phan tu bang 5 la: ');

for i:=1 to n do

if a[i]=5 then write(i,' ');

readln;

end.

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;