Задание на паскале
Дан численный массив M, элементы которых упорядочены по возрастанию и число a. Не нарушая порядок возрастания элементов включить число a в массив M.
Дан численный массив M, элементы которых упорядочены по возрастанию и число a. Не нарушая порядок возрастания элементов включить число a в массив M.
More Questions From This User See All
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
var M:=SeqRandom(ReadInteger('n='),-99,99).Sorted.ToArray; M.Println;
var a:=ReadInteger('Введите вставляемое число:');
var i:=M.FindIndex(t->t>a);
if i>-1 then M:=M?[:i]+Arr(a)+M?[i:]
else M:=M+Arr(a);
M.Println
end.