написать программу матрицы в delphi

[ilnar]

Дан целочисленный массив размера N. Вставить перед каждой его серией элемент с нулевым значением.

Помогите пожалуйста!!!!(((((((((

[Сергeй]

За 100 WMR устроит ?

[ОДИНОЧЕСТВО В СЕТИ]

Что есть серия?

[ilnar]

бесплатно неможешь пожалуйста срочно надо???((((((

[Сергeй]

Бесплатно - это тебе на паперть надо идти)

[ilnar]

Незнаю, так задано в условии!((((

[Сергeй]

> Незнаю, так задано в условии

Вот ты даже не сподобился уточнить у препода, что есть серия)
Как объяснять-то ему будешь ?))))

[ilnar]

это не матрица оказывается а массив, наверно надо с FOR

[ОДИНОЧЕСТВО В СЕТИ]

Readln(n);
for i:=1 to n do begin
a[i]:=Random(3)+1;
write(a[i]:2);
end;
Writeln;
n:=n+1;
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=0;
i:=3;
while i<=n do begin
 if (a[i]<>a[i-1])then
 begin
   n:=n+1;
  for j:=n downto i do
    a[j]:=a[j-1];
  a[i]:=0;
  Inc(i,2);
 end else
 Inc(i);
 end;
 for i:=1 to n do
write(a[i]:2);
Readln;
end.

[ilnar]

Пасибо огромное!)))