Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/ad7/ad7baca93a7d278921ba56af38f97d06.jpg)
Ответ дал:
0
№342. 40 баллов , помогите с информатикой.https://znanija.com/task/30603988
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад