Umiestnenie súboru www.TrSek.com/zadania/max_vzdial.pas{ MAX_VZDIAL.PAS Copyright (c) Pheo }
{ Najde maximum z vypocitanych vzdialenosti n-bodov v rovine. }
{ }
{ Datum:26.04.2005 http://www.trsek.com }
Program Max_vzdial;
var n, i, bod : integer; { od zaciatku suradn. sustavy }
x, y, v, max : real;
begin
write('Zadaj pocet bodov : ');
readln(n);
max := 0;
for i := 1 to n do
begin
write('Zadaj suradnice ', i, '.bodu : ');
readln(x,y);
v := sqrt(x*x + y*y);
if v > max then
begin
max:= v;
bod := i;
end;
end;
writeln('Maximalnu vzdialenost = ', max:1:6,' ma ', bod, '.bod.');
readln;
end.