Question

Задание на паскале
Дан численный массив M, элементы которых упорядочены по возрастанию и число a. Не нарушая порядок возрастания элементов включить число a в массив M.

Answer 1

const n=11;

var b:array[1..n] of integer;

i,j,c,a:integer;

begin

randomize;

for i:=1 to n-1 do begin

b[i]:=random(50);

write(b[i]:3);

end;

writeln;

for i:=1 to n-2 do

for j:=n-2 downto i do

if b[j]>b[j+1] then begin

c:=b[j];

b[j]:=b[j+1];

b[j+1]:=c;

end;

writeln;

writeln('Введите число а');

read(a);

writeln('a= ',a);

b[n]:=a;

for i:=1 to n do

write(b[i]:3);

end.

Answer 2

Ну вот теперь Вы можете в оболочке просто наводить курсор на непонятные слова и будет Вам подсказка.

Answer 3

Так всегда и делаю. Спасибо, теперь я буду знать больше :)

Answer 4

А Вам действительно хочется знать больше?

Answer 5

Да. Я хочу учиться на программиста потом. Вот, начинаю с малого.

Answer 6

Тогда Вам стоит уделить внимание этой версии языка. Она - это C#, Питон и Хаскель "в одном флаконе". Отсюда и волшебная эффективность программирования.

Answer 7

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

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.

Answer 8

спасибо, можешь помочь с этим? https://znanija.com/task/29176221