Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type t=array[1..100,1..100] of longint;
- var a:t;
- i,m,n,n1,j,s1,s2,s3,s4,max:longint;
- f:text;
- begin
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- for i:=1 to n do
- for j:=1 to n do
- read(f,a[i,j]);
- close(f);
- n1:=n div 2;
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- m:=1; j:=0;
- repeat
- begin inc(j);
- for i:=m to n do
- s1:=s1+a[i,j];
- inc(m); n:=n-1; end; until j=n1;
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; j:=n+1;
- repeat
- begin dec(j);
- for i:=m to n do
- begin
- s2:=s2+a[i,j];
- end;
- inc(m); n:=n-1; end; until j=n1;
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; i:=n+1;
- repeat
- begin dec(i);
- for j:=m to n do
- begin
- s3:=s3+a[i,j];
- end;
- inc(m); n:=n-1; end; until i=n1;
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; i:=0;
- repeat
- begin inc(i);
- for j:=m to n do
- s4:=s4+a[i,j];
- inc(m); n:=n-1; end; until i=n1;
- max:=0;
- if s1>max then max:=s1;
- if s2>max then max:=s2;
- if s3>max then max:=s3;
- if s4>max then max:=s4;
- if s1=max then
- begin
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; j:=0;
- repeat
- begin inc(j);
- for i:=m to n do
- writeln(a[i,j]); inc(m); n:=n-1; end; until j=n1; end;
- if s2=max then
- begin
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; j:=n+1;
- repeat
- begin
- dec(j);
- for i:=m to n do
- writeln(a[i,j]);
- inc(m); n:=n-1; end; until j=n1; end;
- if s3=max then
- begin
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; i:=n+1;
- repeat
- begin dec(i);
- for j:=m to n do
- writeln(a[i,j]); inc(m); n:=n-1; end; until i=n1; end;
- if s4=max then
- begin
- assign(f,'tri.in');
- reset(f);
- readln(f,n);
- close(f);
- m:=1; i:=0;
- repeat
- begin inc(i);
- for j:=m to n do
- writeln(a[i,j]); inc(m); n:=n-1; end; until i=n1; end;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement