Помогите решить задачу по програмированию на С#, либо паскаль.

Ну, если вы упомянули C#, то динамическими массивами в Паскале вас не удивить и не напугать.

program N67360994;

procedure PrintArray(a:array of shortint);
var i:byte;
begin
for i := Low(a) to High(a) do
write(a[ i ]:5);
writeln;
end;

var
a:array of shortint;
N, i, j, k:byte;
begin
{Формирование массива}
randomize;
N := random(91) + 10;
writeln('Дан массив длиной ',N,':');
setlength(a, N);
i := Low(a);
while i < N do
begin
k := random(5) + 1;
k := k * ord(k <= N - i) + (N - i) * ord(k > N - i);
repeat
a[ i ] := random(201) - 100
until a[ i ] <> 0;
for j := 1 to k - 1 do
a[ i + j ] := a[ i ];
inc(i, k)
end;
PrintArray(a);
{Вставка нулевых элементов}
setlength(a, N shl 1); {расширение массива}
i := Low(a) + 1;
while i < N do
begin
if a[ i ] <> a[ i - 1 ] then
begin
inc(N);
for j := N - 1 downto i + 1 do
a[ j ] := a[ j - 1];
a[ i ] := 0;
inc(i)
end;
inc(i)
end;
inc(N);
setlength(a, N); {размер массива = кол-ву элементов после вставки}
writeln('Массив после преобразования, длиной ',N,':');
PrintArray(a);
readln;
finalize(a)
end.