Решение задачи Array 109

#include <stdio.h>
int main(void)
{
    int a[20];
    int n;
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int i2;
    for (i=n-1; i>=0; --i){
        if (a[i]<0){
            ++n;
            for(i2=n; i2>i; --i2) a[i2]=a[i2-1];
            a[i+1]=0;
        }
    }
 
    for (i=0; i<n;++i) printf("  %i: %i\n",i+1,a[i]);
 
    return 0;
}

import random

N = random.randrange(2,10)
#a = [i+1 - N//2-1 for i in range(N)]
a = [random.randrange(-5,6) for i in range(N)]
print("N = ", N)
print("Array:\n",a)

M = 0
for x in a :
    if x < 0 :
        M += 1
a.extend([0]*M)
print("Modified Array 2:\n",a)

j = 0
for i in range(N-1,-1,-1) :
##    print(i,a[i])
    if a[i] < 0 :
        a[(N+M-1)-j] = 0
        j += 1
    a[(N+M-1)-j] = a[i]
    j += 1

print("Modified Array 2:\n",a)
print("Length:\n",len(a))
									

program Array109;
type
 m =  array[1..20] of Integer;
 
var
  a, b: m;
  N,Nk,i,k:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
  Nk:=N;
  k:=1;
  for i:=1 to N do
   begin
    b[k]:=a[i];
    if a[i]<0 then
     begin
      Nk:=Nk+1;
      K:=k+1;
      b[k]:=0;
     end;
    K:=k+1;
   end;
 
  N:=Nk;
  a:=b;
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.