массив в паскале

[natalex]

все элементы массива ,начиная со второго ,необходимо подвинуть вперед.первому элементу присвоить значение 0

[p51x]

идите с конца массива и переприсваивайте... в чем проблема?

[natalex]

могла бы решила бы

[chesser]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 Ar: array[1..100] of Integer;
 i, n: integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kol. elementov: ');
  readln(n);
  writeln('Vvod znachenii elementov');
  for i:=1 to n do
  begin
   write('(', i, ') = ');
   readln(Ar[i]);
  end;
  writeln('Massiv:');
  for i:=1 to n do
    write(Ar[i]:4);
  writeln;
  for i:=n+1 downto 3 do
   Ar[i]:=Ar[i-1];
  Ar[1]:=0;
  inc(n);
  writeln('Massiv posle sdviga:');
  for i:=1 to n do
    write(Ar[i]:4);
  writeln;
  readln;
end.

[OLEG'arh]

1.объяви вектор(одномерный массив)
2.присвой ему 10 значений
3.первому элементе присвой нолик.
4. выведи на экран.
и это часть твоего задания))))
5. если сама сделала эти пункты и при этом не смогла доделать, то выложи на форум то что тулучилось. если лень думать и учиться то почти никто тебе просто так не поможет.