Тема: Задача
Доброго вечора!
Є така задачка
▼Прихований текст
Як думав розв'язувати я.. знайти всі відстані від точок, де був дим до будиночка..
Тоді нам треба знайти найменше R, якщо сеньйор бачив дим К разів: тобто якщо розташувати всі довжини в порядку зростання, то нам треба К-ну довжину...
program breathe;
var
x1, y1, c: real;
n, k, i, j: integer;
x, y, a: array [1..100] of real;
begin
readln(x1, y1);
readln(n, k);
for i := 1 to n do
begin
readln(x[i], y[i]);
a[i] := sqrt((sqr(x1 - x[i])) + (sqr(y1 - y[i])));
end;
for i := 1 to n - 1 do
for j := 1 to n - j do
if a[i] > a[i + 1] then begin
c := a[i + 1];
a[i + 1] := a[i];
a[i] := c;
end;
writeln(a[k]);
end.Але воно по тесту неправильно працює...
