Помогите написать псевдокод или программу на 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
