Написать псевдокод или программу на pascal(любой): заданы 4 точки: a,b,c,d,некоторые точки на прямой.надо отсортировать числа и определить расстояние между двумя самыми ближайшими точками
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin Write('Введите значения для точек A,B,C,D: '); var m:=ReadArrInteger(4).Sorted; Print('Отсортированные:'); m.Println; Writeln('Расстояние между ближайшими точками равно ', m.Pairwise((x,y)->y-x).Min) end.
Тестовое решение Введите значения для точек A,B,C,D: 25 13 5 31 Отсортированные: 5 13 25 31 Расстояние между ближайшими точками равно 6
begin
Write('Введите значения для точек A,B,C,D: ');
var m:=ReadArrInteger(4).Sorted;
Print('Отсортированные:'); m.Println;
Writeln('Расстояние между ближайшими точками равно ',
m.Pairwise((x,y)->y-x).Min)
end.
Тестовое решение
Введите значения для точек A,B,C,D: 25 13 5 31
Отсортированные: 5 13 25 31
Расстояние между ближайшими точками равно 6