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.
например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут