Не в файле хранятся 8 целых чисел. в каждой строке расположены два числа через пробел – координаты точки на плоскости. выяснить, точка расположена дальше всех от начала координат. вывести ответ в тот же файл в следующем виде: в первой строке – слово «ответ», в следующей строке – координаты точки, в следующей строке – расстояние от начала координат.
А что тут собственно понимать?
Расстояние от начала координат до точки - фактически, гипотенуза треугольника с катетами, равными отрезкам по осям координат. Обычная теорема Пифагора. Более того, можно сравнивать не гипотенузы, а их квадраты, чтобы не пользоваться вычислением квадратного корня.
OM² = OMx²+OMy² (см. вложение)
Во втором вложении - тестовый файл in.txt. Поскольку ответ выводится в этот же файл, для повторного запуска программы файл становится непригоден, в связи с чем следует хранить его исходную копию.
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!begin
var a := ReadAllText('in.txt').ToReals.Batch(2).ToArray;
var i := a.Select(t -> Sqr(t.First) + Sqr(t.Last)).ToArray.IndexMax;
var f := OpenAppend('in.txt');
Writeln(f, NewLine, 'ответ', NewLine, a[i].First, ', ', a[i].Last,
NewLine, Sqrt(Sqr(a[i].First) + Sqr(a[i].Last)));
f.Close
end.