hgjh

← разместить еще код

Расшаренный код:

program f;
var cout:array [1..4] of integer; 
aminx,aminy,mina,r:array [1..4] of real;
i,max,maxi,maxj,j,min,n:integer;
x,y,mini:real;
flag,flag2:boolean;
begin
flag:=false; flag2:=false;
for i:=1 to 4 do 
mina[i]:=-1;

for i:=1 to 4 do 
cout[i]:=0;

readln (n);

for i:=1 to n do 
	begin
	readln (x,y);
	if (x>0) and (y>0) then 
	cout[1]:=cout[1]+1; 
	if (abs(x)+abs(y)< mina[1]) or (mina[1]=-1) then
		begin
		mina[1]:=abs(x)+abs(y);
		aminx[1]:=x;aminy[1]:=y;
		if aminx[1]<aminy[1] then
		r[1]:=aminx[1] else 
		r[1]:=aminy[1];
		end;
		
	if (x<0) and (y>0) then 
	cout[2]:=cout[2]+1; 
	if (abs(x)+abs(y)< mina[2])or (mina[2]=-1) then
		begin
		mina[2]:=abs(x)+abs(y);
		aminx[2]:=x;aminy[2]:=y;
		if aminx[2]<aminy[2] then
		r[2]:=aminx[2] else 
		r[2]:=aminy[2];
		end;

	if (x<0) and (y<0) then 
	cout[3]:=cout[3]+1; 
	if (abs(x)+abs(y)< mina[3]) or (mina[3]=-1) then
		begin
		mina[3]:=abs(x)+abs(y);
		aminx[3]:=x;aminy[3]:=y;
		if aminx[3]<aminy[3] then
		r[3]:=aminx[3] else 
		r[3]:=aminy[3];
		end;
		
	if (x>0) and (y<0) then 
	cout[4]:=cout[4]+1; 
	if (abs(x)+abs(y)< mina[4]) or (mina[4]=-1) then
		begin
		mina[4]:=abs(x)+abs(y);
		aminx[4]:=x;aminy[4]:=y;
		if aminx[4]<aminy[4] then
		r[4]:=aminx[4] else 
		r[4]:=aminy[4];
		end;
	end;
	
	for i:=1 to 4 do
	for j:=1 to 4 do
	if (cout[i]=cout[j]) and (i<>j) then
	flag:=true;
	if flag<>true then
	begin
		for i:=1 to 4 do
		for j:=1 to 4 do
		begin
		if (cout[i]>cout[j]) then 
		begin 
		maxi:=i; max:=cout[i]; 
		end;
		if (cout[i]<cout[j]) then
		maxi:=j; max:=cout[j];
		end;
		
		writeln('m= ',max);
		writeln('r= ',r[maxi]);
		writeln('a ',aminx[maxi],' ',aminy[maxi]);
	end;
	
	if flag=true then
	for i:=1 to 4 do
	for j:=1 to 4 do
	if (r[i]=r[j]) and (i<>j) then
	flag2:=true;
	
	if flag2<>true then
		begin
		for i:=1 to 4 do
		for j:=1 to 4 do
		if (r[i]>r[j]) then 
		begin
		mini:=i; min:=r[i] 
		end
		else begin
		mini:=j; min:=r[j]; end;
		writeln('m= ',cout[mini]);
		writeln('r= ',min);
		writeln('a ',aminx[mini],' ',aminy[mini]);
		end;
		
	if flag2=true then
	begin
		writeln('m= ',cout[1]);
		writeln('r= ',r[1]);
		writeln('a ',aminx[1],' ',aminy[1]);
	end;
end.