Var a: array[1..100] of integer;
<span> i,n,bg,nd,s: integer;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> randomize;
</span><span> bg:=0; nd:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(10);
</span><span> write(a[i],' ');
</span><span> if a[i]=0 then
</span><span> if (bg>0) and (nd=0) then nd:=i
</span><span> else if bg=0 then bg:=i;
</span><span> end;
</span><span> writeln;
</span><span> if bg+nd>1 then
</span><span> begin
</span><span> if (bg mod 2=0) then inc(bg)
</span><span> else bg:=bg+2;
</span><span> if (nd mod 2=0) then dec(nd)
</span><span> else nd:=nd-2;
</span><span> writeln('начало: ',bg,' конец: ',nd);
</span><span> s:=1;
</span><span> repeat
</span><span> s:=s*a[bg];
</span><span> bg:=bg+2;
</span><span> until bg>nd;
</span><span> writeln('произведение: ',s);
</span><span> end
</span><span> else writeln(0);
</span><span>end.
</span>
n = 15
<span>4 4 7 0 3 5 6 1 1 8 8 4 0 1 9
</span><span>начало: 5 конец: 11
</span><span>произведение: 144
</span>
Uses crt;
Var p1,p2,p22,k,p3,i: integer;
b:array [1..6] of integer;
Begin
Writeln('введите трехзначное целое число -');
Readln(k);
p1:=k div 100;
p22:=k mod 100;
p2:=p22 div 10;
p3:=p22 mod 10;
writeln('p1= ',p1,'p2= ',p2,'p3= ',p3);
b[1]:=p1+p2*10+p3*100;
b[2]:=p1+p3*10+p2*100;
b[3]:=p2+p1*10+p3*100;
b[4]:=p2+p3*10+p1*100;
b[5]:=p3+p2*10+p1*100;
b[6]:=p3+p1*10+p2*100;
for i:=1 to 6 do
writeln('b[',i,']= ',b);
end.
2140 гб будет в мб 2140000
Ну на информатике не особо опасно не считая разеток♀️