Advertisement
Guest User

27-2

a guest
May 25th, 2018
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.88 KB | None | 0 0
  1. var n,i,a,b,c,minra,minrc,a1,b1,c1,minrb,x,y,z:integer;
  2. begin
  3.   readln(n);
  4.   readln(a,b,c);
  5.   readln(x,y,z);
  6.   a1:=max(a+x,max(b+x,c+x));
  7.   b1:=max(a+y,max(b+y,c+y));
  8.   c1:=max(a+z,max(b+z,c+z));
  9.   a:=a1; b:=b1; c:=c1;
  10.   if abs(x-y) mod 2<>0 then
  11.     minra:=abs(x-y)
  12.   else minra:=abs(x-y)+1;
  13.   if abs(z-y) mod 2<>80 then
  14.     minrc:=abs(z-y)
  15.   else minrc:=abs(z-y)+1;
  16.   for i:=3 to n do
  17.     begin
  18.       readln(x,y,z);
  19.       if (abs(x-y)<minra) and (abs(x-y) mod 2 <> 0) then minra:=abs(x-y);
  20.       if (abs(z-y)<minrc) and (abs(x-y) mod 2 <> 0) then minrc:=abs(z-y);
  21.       a1:=max(a+x,b+x);
  22.       b1:=max(a+y,max(b+y,c+y));
  23.       c1:=max(b+z,c+z);
  24.       a:=a1;
  25.       b:=b1;
  26.       c:=c1;
  27.     end;
  28.     minrb:=min(minra,minrc);
  29. if a mod 2<>0 then a:=a-minra;
  30. if b mod 2<>0 then b:=b-minrb;
  31. if c mod 2<>0 then c:=c-minrc;
  32. writeln(max(a,max(b,c)));
  33. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement