Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- x,y : array [1..100] of real;
- i,nom,x1,y1 : longint;
- miny,minx : real;
- begin
- for i:=1 to 6 do
- readln(x[i],y[i]);
- miny:=y[1];
- nom:=1;
- for i:=1 to 6 do
- if y[i]<miny then begin
- miny:=y[i];
- nom:=i;
- end;
- if x[i]<minx then begin
- minx:=x[i];
- nom:=i;
- end;
- writeln(minx,' ',miny);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement