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

Ответы 8

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

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

      linaccpr
    • 5 лет назад
    • 0
  • А Вам действительно хочется знать больше?
  • Да. Я хочу учиться на программиста потом. Вот, начинаю с малого.
    • Автор:

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

      rudynovak
    • 5 лет назад
    • 0
  • спасибо, можешь помочь с этим? https://znanija.com/task/29176221
  • 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.

    • Автор:

      dwayne
    • 5 лет назад
    • 0
  • 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.Printlnend.
    answer img
    • Автор:

      mayra
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years