• Вопрос по информатике:

    Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000.

    Напишите подпрограмму, сдвинет элементы массива на 1 вправо (дополнительный массив не использовать).

    Например из массива: 1 2 3 4 5 6, получим 6 1 2 3 4 5.

    Размер массива заранее задан константой N. Используйте заголовок:

    procedure perest(var m:TMas);

    Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм.

    • Автор:

      alexatorres

  • Ответ:

    procedure perest(var m:TMas);

    var t, i: integer;

    begin

     t := m[1];

     for i := 1 to n do

       m[i] := m[i - 1];

     m[n] := t

    end;

    • Отвечал:

      raimundobowen
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска