Напишите функцию, которая переставляет 4 числа в порядке убывания.ПАСКАЛЬ

Напишите функцию, которая переставляет 4 числа в порядке убывания.

ПАСКАЛЬ

Задать свой вопрос
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт