pascalABS 50 БАЛЛОВ СРОЧНО
В массиве записана информация о росте каждого из 28 учеников класса (рост самого маленького – 156 см, самого высокого – 192 см). Из класса выбыли два ученика. Получить новый массив с упорядоченным по убыванию роста оставшихся учащихся класса.
В массиве записана информация о росте каждого из 28 учеников класса (рост самого маленького – 156 см, самого высокого – 192 см). Из класса выбыли два ученика. Получить новый массив с упорядоченным по убыванию роста оставшихся учащихся класса.
More Questions From This User See All
Answers & Comments
// 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.