Намалювати блок-схему до програми // Нарисовать блок-схему

Elena в категроии Информатика, вопрос открыт 05.12.2017 в 03:38

Program Slitie;
var i,n,k,t,q,r,p0,q0,s0: integer;
A,B: array[1..1000] of integer;
f: text;
BEGIN
assign(f,'input.txt');
reset(f);
read(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
assign(f,'output.txt');
rewrite(f);
k:=1;
while k begin
t:=0;
while t+k <= N do
begin
q:=t+k;
if t+2*k>N then r:=N
else r:=t+2*k;
p0:=t;
q0:=q;
s0:=t;
while (p0<>q) or (q0<>r) do
if (p0 then begin B[s0+1]:=A[p0+1]; inc(p0); inc(s0) end
else begin B[s0+1]:=A[q0+1]; inc(q0); inc(s0) end;
t:=r;
end;
k:=k*2;
A:=B;
end;
write(f,A[1]);
for i:=2 to n do write(f,' ',A[i]);
close(f)
END.