Предмет: Информатика,
автор: jioo568
Напишите процедуру, которая переставляет 4 числа в порядке убывания.
ПАСКАЛЬ
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
procedure ПоУбываниюЧетыреЧисла(var a, b, c, d: real);
begin
var p := Seq(a, b, c, d).OrderDescending.ToArray;
(a, b, c, d) := (p[0], p[1], p[2], p[3])
end;
begin
var (a, b, c, d) := (4.05, -2.5, 0.3, 9.0);
ПоУбываниюЧетыреЧисла(a, b, c, d);
Print(a, b, c, d)
end.
Результат
9 4.05 0.3 -2.5
Похожие вопросы
Предмет: Математика,
автор: aimen12345678911
Предмет: Геометрия,
автор: frankishtain23
Предмет: Литература,
автор: dsavickaya7
Предмет: Математика,
автор: Евразия1