profile
Опубликовано 5 лет назад по предмету Информатика от jioo568

Напишите процедуру, которая переставляет 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

Самые новые вопросы