Cod sursa(job #125203)
Utilizator | Hevele Istvan h_istvan | Data | 20 ianuarie 2008 12:02:07 |
---|---|---|---|
Problema | Inundatii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 3, Clasa a 10-a | 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.