Дан массив, заполненный случайными целыми числами в диапазоне от -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 и может использоваться для описания параметров подпрограмм.
Answers & Comments
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;