Question

Дан массив размера n. осуществить сдвиг элементов массива вправо на одну позицию (при этом a1 перейдет в а2, а2 - в an-i - в an, а начальное значение последнего элемента будет потеряно). первый элемент полученного массива принять равным 0.

Answer 1

const n=10;

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

i: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i],' ');

end;

writeln;

for i:=n downto 2 do a[i]:=a[i-1];

a[1]:=0;

for i:=1 to n do write(a[i],' ');

writeln;

end.

Пример:

-9 -8 -8 -6 -4 -4 5 2 7 -6  

0 -9 -8 -8 -6 -4 -4 5 2 7

Answer 2

const n=10;

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

i:integer;

begin

write(' Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:3,' ')

end;

writeln;

for i:=1 to n-1 do a[n-i+1]:=a[n-i];

a[1]:=0;

write('Сдвинутый массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.