Question

pascalABS 50 БАЛЛОВ СРОЧНО
В массиве записана информация о росте каждого из 28 учеников класса (рост самого маленького – 156 см, самого высокого – 192 см). Из класса выбыли два ученика. Получить новый массив с упорядоченным по убыванию роста оставшихся учащихся класса.

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(28, 156, 192);

 a.Println;

 var L := a.ToList;

 var (x, y) := ReadInteger2('Какие два роста удалить?');

 if L.Remove(x) then

   if L.Remove(y) then

   begin

     var b := L.OrderDescending.ToArray;

     b.Println

   end

   else

     Print('Ученик с ростом', y, 'не найден')

 else

   Print('Ученик с ростом', x, 'не найден')

end.