var
c: array[1..41] of integer;
i,j,n,max: integer;
begin
n:=20;
c[ 1]:=4;
c[ 2]:=1;
c[ 3]:=1;
c[ 4]:=1;
c[ 5]:=1;
c[ 6]:=1;
c[ 7]:=1;
c[ 8]:=4;
c[ 9]:=1;
c[10]:=1;
c[11]:=1;
c[12]:=4;
c[13]:=4;
c[14]:=1;
c[15]:=1;
c[16]:=1;
c[17]:=1;
c[18]:=1;
c[19]:=1;
c[20]:=4;
{
randomize;
for i:=1 to n do
c[i]:=random(50);
}
writeln('array:');
for i:=1 to n do
write(c[i]:3);
writeln;
max:=c[1];
for i:=2 to n do
if c[i]>max
then
max:=c[i];
i:=n;
while i>1 do
begin
if (c[i]=max) or (c[i-1]=max)
then
begin
for j:=n downto i do
c[j+1]:=c[j];
inc(n);
c[i]:=0;
end;
dec(i);
end;
if c[1]=max
then
begin
for i:=n downto 1 do
c[i+1]:=c[i];
c[1]:=0;
inc(n);
end;
if c[n]=max
then
begin
c[n+1]:=0;
inc(n);
end;
writeln('final array:');
for i:=1 to n do
write(c[i]:3);
writeln;
writeln('Press ENTER');
readln;
end. |
