Cod sursa(job #125204)

Utilizator h_istvanHevele Istvan h_istvan Data 20 ianuarie 2008 12:02:07
Problema Inundatii Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 3, Clasele 11-12 Marime 0.59 kb
program indunatii;
type tomb = array[1..50000] of longint;
var f:text;
    s:extended;
    n,i:longint;
    x,y,z:tomb;
procedure megold(var v:tomb;var e:extended);
var p,i:longint;
begin
     p:=(1+n) div 2;
     for i:=1 to n do
         e:=e+abs(p-i)+abs(v[p]-v[i]);
end;

begin
     assign(f,'indunatii.in');
     reset(f);
     readln(f,n);
     for i:=1 to n do
         readln(f,x[i],y[i],z[i]);
     close(f);

     s:=0;
     megold(x,s);
     megold(y,s);
     megold(z,s);

     assign(f,'indunatii.out');
     rewrite(f);
     writeln(f,s:0:0);
     close(f);
end.