// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
begin
var (f, out) := (ReadAllLines('in.txt'), OpenWrite('in.txt'));
f.Select((t, i)-> (t.ToWords[0], i)).Sorted.ForEach(t -> begin Writeln(out, f[t[1]]) end);
out.Close;
end.
Файл, который использовал для проверки в приложении(совпадение с реальными именами - случайность).
Считывание и запись происходит в одном файле.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
begin
var (f, out) := (ReadAllLines('in.txt'), OpenWrite('in.txt'));
f.Select((t, i)-> (t.ToWords[0], i)).Sorted.ForEach(t -> begin Writeln(out, f[t[1]]) end);
out.Close;
end.
Файл, который использовал для проверки в приложении(совпадение с реальными именами - случайность).
Считывание и запись происходит в одном файле.