Помогите пожалуйста (Обработка одномерных массивов)

[Wi1D]

ну вот!)))я щас занят уже...если надо завтро напишу...
что ж ты раньше не прислал :
· сдвинуть все элементы, начиная с k+1-го на один элемент влево:
....
· последнему элементу присвоить значение 0:

[JayDe]

=) ок))) буду ждать)))

[maladoy]

program maladoy;
const n=10;
type mas=array[1..n+1] of integer;
var b:mas;j,p,p1,p3:integer;

Procedure Insert(m:byte; x:integer; var a:mas);
Var i:byte;
Begin
  for i:=n downto m do a[i+1]:=a[i];
  a[m]:=x;
end;

Procedure Delete(k:byte; var a:mas);
Var i1:byte;
Begin
for i1:=k to n-1 do a[i1]:=a[i1+1];
a[n]:=0;
end;

Procedure Swap(k1,k2:byte; var a:mas);
Var dop:integer;
Begin
dop:=a[k1];
a[k1]:=a[k2];
a[k2]:=dop;
end;
begin
randomize
for j:=1 to n do
begin
  b[j]:=random(25)
 write ('  b[',j,']=',b[j]); 
end;
p:=0;
p1:=0;
p3:=0;

for j:=1 to n do
begin
 if (b[j] mod 2 = 0) and (p=0) then
 p:=j
 else
 if (b[j] mod 2 =0)   and (p<>0) and(p1=0) then
 p1:=j
 else 
 if (b[j] mod 2 =0)   and (p<>0) and ( p1<>0) and (p2=0) then
 p2:=j;
 end;
insert(p,2,b);// вставка 2 перед 1 четным элементом
swap (p1+1,p2+1,b);// поменять местами 2 и 3 четные элементы
delete(p+1;b); //удаление 1 четного элемента
writeln('new massiv');
for j:=1 to n do
write ('  b[',j,']=',b[j]); 
end.

[Chery]

Procedure Swap(var x,y: integer);
begin
x:=x+y;
y:=x-y;
x:=x-y;
end;

Преимущество - нет дополнительной переменной.

[maladoy]

Procedure Swap(var x,y: integer);
begin
x:=x+y;
y:=x-y;
x:=x-y;
end;

просили по примеру!!! как просили так и получили!!!!

[JayDe]

Спасибо тебе большое!!! Будем надеяться, что это то что надо)))

[SergeyPerm]

Помогите разобраться, при запуске винды какой-то синий экран с какими-то словами выходит и всё. Чё за беда??? Как от неё избавиться??? Как я понял это какая-то проверка...