fork download
copy 
  1. Program strudel;
  2. const
  3.     MAXN = 100000;
  4. type elenco=array[0..MAXN]  of longint;  
  5. var
  6.     N, i                : longint;
  7.     mandorle, cannella, somme, ricordaindice, diff  : elenco;
  8.  
  9.  
  10. Procedure scambia (var a,b: longint);
  11. var x:longint;
  12. begin
  13.    x:=a;
  14.    a:=b;
  15.    b:=x;
  16. end;  
  17.  
  18. Procedure ordinamento (estremoi,estremos: longint; var v : elenco; var u:elenco; ordinato:boolean);
  19. var inf, sup, medio:longint;
  20.     pivot :longint;
  21. begin
  22.     inf:=estremoi;
  23.     sup:=estremos;
  24.     medio:= (estremoi+estremos) div 2;
  25.     pivot:=v[medio];
  26.     repeat
  27.       if (ordinato) then
  28.          begin
  29.             while (v[inf]<pivot) do  inf:=inf+1;
  30.             while (v[sup]>pivot) do  sup:=sup-1;
  31.          end;
  32.       if inf<=sup then
  33.        begin
  34.          scambia(v[inf],v[sup]);
  35.          scambia(u[inf],u[sup]);
  36.          inf:=inf+1;
  37.          sup:=sup-1;
  38.        end;
  39.     until inf>sup;
  40.     if (estremoi<sup) then ordinamento(estremoi,sup,v,u,ordinato);
  41.     if (inf<estremos) then ordinamento(inf,estremos,v,u,ordinato);
  42. end;
  43.  
  44.  
  45.  
  46. begin
  47.     (*assign(input, 'input.txt'); reset(input);
  48.     assign(output, 'output.txt'); rewrite(output);*)
  49.  
  50.     readln( N);
  51.     for i:=0 to N-1 do
  52.         read(mandorle[i]);
  53.     readln;
  54.     for i:=0 to N-1 do
  55.         read(cannella[i]);
  56.     for i:=0 to N-1 do
  57.                 diff[i]:=cannella[i] - mandorle[i];    
  58.     for i:=0 to N do
  59.              begin
  60.                 ricordaindice[i]:=i;
  61.                 somme[i]:=0;
  62.              end; 
  63.     for i:=1 to N do somme[i]:=somme[i-1]+diff[i-1];  
  64.    for i:=0 to N do write(somme[i],' '); writeln;
  65.    for i:=0 to N do write(ricordaindice[i],' '); writeln;
  66.     ordinamento(0,N,somme, ricordaindice,true);
  67.     for i:=0 to N do write(somme[i],' '); writeln;
  68.     for i:=0 to N do write(ricordaindice[i],' '); writeln;
  69.  
  70.     writeln(ricordaindice[N]-ricordaindice[0]);
  71. end.
  72.  
Success #stdin #stdout 0s 5248KB
comments (?)
stdin
copy 
6
8 3 3 5 0 6
2 4 1 8 2 1
stdout
copy 
0 -6 -5 -7 -4 -2 -7 
0 1 2 3 4 5 6 
-7 -7 -6 -5 -4 -2 0 
3 6 1 2 4 5 0 
-3
https://ideone.com/lsG9hX
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!