Pascal ABC.net Сдвиг элементов массива на одну позицию влево

[C_i_K_a_D_a]

Помогите пожалуйста! Не могу понять как это сделать.
Как произвести сдвиг всех элементов массива на одну позицию влево (первый элемент встает вместо последнего)


const
N = 14;
type
mas = array [1..N] of integer;
var
a : mas;
Sm : integer;

Procedure Inp ;
var
i :integer;
begin
for i := 1 to N do
begin
Write ('Введите элемент с индексом (',i,') : ');
readln(a[i]);
end
end;

Procedure Out;
var
i :integer;
begin
for i :=1 to N do
write(a[i]:5);
writeln
end;

{Здесь нужен сдвиг элементов массива на одну позицию влево}

Function Sum :integer;
var
i ,S :integer;
begin
S := 0;
for i :=1 to N do
if a[i] > 0 then
inc(S);
Sum := S;
end;

begin
Inp ;
Out;
{Здесь нужен сдвиг элементов массива на одну позицию влево}
Inp;
Sm := Sum;
Writeln('Кол-во положительных элемнтов в массиве :',Sm);

end.

[ura_111]

Может так?

0.jpg

А ну, попробуй мою идею для своих 14 элементов (я рассмотрел массив только из 4-х). Сначала набери просто операторами присваивания (например для шага №2: "a[1]=a[2];"); проверь чтобы программа правильно выдавала результат, а потом подумаем как это оформить с помощью цикла "for".

[newerow1989]

const
 N = 14;
 type
 mas = array [1..N] of integer;
 var
 a : mas;
 Sm,i,z : integer;

 Procedure Inp ;
 var 
 i :integer;
 begin
 for i := 1 to N do 
 begin
 Write ('Введите элемент с индексом (',i,') : ');
 readln(a[i]);
 end
 end;

 Procedure Out1;
 var
 i :integer;
 begin
 for i :=1 to N do
 write(a[i]:5);
 writeln
 end;

 Function Sum :integer;
 var 
 i ,S :integer;
 begin
 S := 0;
 for i :=1 to N do 
 if a[i] > 0 then
 inc(S);
 Sum := S; 
 end;

begin
 Inp ;
 Out1;
 z:=a[1];
 For i:=2 to N-1 do
    a[i]:=a[i+1];
 a[N]:=z;
 Out1;
 Sm := Sum;
 Writeln('Кол-во положительных элемнтов в массиве :',Sm);
   Readln;
end.

[C_i_K_a_D_a]

Спасибо большое! теперь лучше понял как это происходит!
Цикл составил) :

z:=a[1];
For i:=1 to N-1 do
a[i]:=a[i+1];
a[N]:=z;

[C_i_K_a_D_a]

Спасибо вам большое ,но вот только там я понял ,что цикл не от i := 2 ,а от i := 1 надо было. Ну я понял спасибо вам!
Почему добавив , как Procedure, программа игнорирует это ? Вы написали в основном теле программы(это я понял)

Procedure Change;
var
i , z :integer;
begin
z := a[1];
for i := 1 to N - 1 do
a [i] := a[i + 1];
a[ N ] := z;
end;