Массив m(25). сортировка "пузырьком". удаление элемента равного c.

mariazhu mariazhu    3   02.10.2019 14:30    0

Ответы
BelkaDengiStol BelkaDengiStol  09.10.2020 11:55
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := 25;

 var M := ArrRandom(n, -50, 50);

 M.Println; // исходный массив

 // пузырьковая сортировка

 for var i := n - 2 downto 0 do

   for var j := 0 to i do

     if M[j] > M[j + 1] then Swap(M[j], M[j + 1]);

 M.Println; // отсортированный массив

 var C := ReadInteger('Значение удаляемого элемента:');

 var p := M.BinarySearch(C);

 if p >= 0 then

 begin

   M := (M?[:p] + M?[p + 1:]).ToArray;

   M.Println; // результат

 end

 else Println('Элемент не найден')

end.


Массив m(25). сортировка пузырьком. удаление элемента равного c.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика