1.
const n=20;
var a:array[1..n] of integer;
i,p:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(200);
 write(a[i],' ');
 end;
writeln;
p:=1;
for i:=1 to n do
 if a[i] mod 12 =0 then p:=p*a[i];
writeln('p=',p);
end.

Пример работы программы:
167 172 107 194 87 57 81 117 161 156 64 70 1 179 199 8 161 156 152 120 
p=2920320

2.
const n=20;
var a:array[1..n] of integer;
i,max,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(200);
 write(a[i],' ');
 end;
writeln;
max:=a[10]; k:=10;
for i:=6 to n div 2 do
 if a[2*i] > max then begin max:=a[2*i]; k:=2*i; end;
writeln('max=a[',k,']=',max);
end

Пример работы программы:
152 192 180 84 127 131 75 188 31 72 159 109 90 1 8 88 131 122 39 86 
max=a[18]=122

3.
const n=20;
var a:array[1..n] of integer;
i,min:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(200);
 write(a[i],' ');
 end;
writeln;
min:=200;
for i:=1 to n do
 if (a[i]>48)and(a[i]<180)and(a[i]<min) then min:=a[i]; 
writeln('min=',min);
end.

Пример работы программы:
108 126 126 73 17 144 38 165 161 140 35 151 14 128 80 183 197 5 199 127 
min=73