Вставка нового эл-та и со сдвигом массива, чес говоря даже стыдно, но сам не зделаю Опции

[kr3v3tkus]

Задали задачку:
массив [-40;30] константа 10
1.удалить эл-т если в нём есть цифра 1
2.если эл-т состоит из одной цифры или цифры одинаковы (22,33 итд) то вставить перед ним число К с клавы, соответственно при этом мдвинув все эл-ты вправо на 1
3.сделать замену 3х первых и последних эл-тов, сохраняя последовательность
Вобщем 1 и 3 вроде сделал , а 2е НИКАК D: никак не получается нормально присвоить и сдвинуть ((( подскажите или натолкните на мыслю плз
ЗЫ вроде в факе такого не нашёл, я тут первый раз, так что не бейте сапогами плиз

program variant1;
const n=10;
type arr=array[1..n] of integer;
var a:arr;
    i,k,t,q:integer;
    temp1,temp2,temp3:integer;
begin
 begin{'vvod massiva'}
  writeln('zapolniaetsia massiv');
  for i:=1 to n do
  begin
  a[i]:=-40+(random(70));
  writeln(i,'element =',a[i]);
  end;
 end;
 begin{'ydalenie elementa'}
 q:=0;
  for i:=1 to n do
   if ((a[i] mod 10 = a[i] div 10) or (a[i] div 10 = 0)) then
   begin
    q:=q+1;
    a[i]:=a[i+1];
   end;
 for i:=1 to n-q do
 writeln(a[i]);
 end;
readln;
readln;
 begin{'vstavka K'}
 writeln('vvesti k');
 readln(k);
 for i:=1 to n do
  if ((a[i] mod 10 =1) or (a[i] div 10 =1)) then
   begin
   i:=t;
   for i:=t to n do
   a[i+1]:=a[i];
   a[t]:=k;
   end;
 for i:=1 to n do
 writeln(a[i]);
 end;
readln;
readln;
 begin{'perestanovka'}
 temp1:=0;
 temp2:=0;
 temp3:=0;
  temp1:=a[n-2];
  temp2:=a[n-1];
  temp3:=a[n];
  a[n-2]:=a[1];
  a[n-1]:=a[2];
  a[n]:=a[3];
  a[1]:=temp1;
  a[2]:=temp2;
  a[3]:=temp3;
  for i:=1 to n do
   writeln(i,' element = ',a[i]);
 end;
readln;
readln;
end.

[volvo]

1.если можно расскажи плз поканкретнее про downto на примере

В смысле? Само действие DownTo, что-ли? Так это просто... Если с To переменная цикла увеличивается на 1 (и стартовое значение должно быть меньше финального), то с DownTo наоборот, уменьшается (стартовое значение должно быть больше финального, чтобы цикл выполнялся...)

For i := 1 to 10 Do Write(i:3);

  1  2  3  4  5  6  7  8  9 10

For i := 10 DownTo 1 Do Write(i:3);

 10  9  8  7  6  5  4  3  2  1

[1..2*n] - почему 2

Потому что в худшем случае (ничего не будет удалено на первом этапе и все элементы из одной цифры или кратны 11) длина исходного массива удвоится... Вот я и зарезервировал необходимое место

После заполнения массива все оставшееся пустым место я заполняю нулями... Ну, не доверяю я компилятору...

меня интересует почему мы вводим одни названия в процедуре, а потом как мы их связываем с названиями переменных в самой программе

Мы даем в процедуре имя формальному параметру (и все действия должны производить именно с этим формальным параметром, потому что не знаем, что будет в Run-Time передано в процедуру фактически)... А вот при вызове процедуры/функции мы передаем какой-то объект, над которым хотим произвести действие, это - фактический параметр, ибо все, что мы задавали сделать в процедуре будет сделано именно с этим объектом...

A и N в описании процедуры - формальный параметр, т.е. ты говоришь процедуре: "Что-то тебе будет передано... Пока назовем это A, когда получишь это что-то - над ним произведешь такие-то действия..."

procedure print(const a: arr; const n: integer);
var i: integer;
begin
  for i := 1 to n do
    write(a[i]:4);
  writeln;
end;

При вызове же A и Q - фактические параметры (здесь просто так получилось, что имя обоих первых параметров совпадает, но это не обязательно...)

print(a, q);