Advertisement
Varvara_Golovnova

Untitled

Dec 9th, 2024
26
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. var
  2. x,y : array [1..100] of real;
  3. i,nom,x1,y1 : longint;
  4. miny,minx : real;
  5. begin
  6. for i:=1 to 6 do
  7. readln(x[i],y[i]);
  8. miny:=y[1];
  9. nom:=1;
  10. for i:=1 to 6 do
  11. if y[i]<miny then begin
  12. miny:=y[i];
  13. nom:=i;
  14. end;
  15. if x[i]<minx then begin
  16. minx:=x[i];
  17. nom:=i;
  18. end;
  19. writeln(minx,' ',miny);
  20. end.
  21.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement