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

#include <stdio.h>
int main(void)
{
    float a[10],b[10],c[10];
    int n;
 
    printf("N: ");
    scanf("%i",&n);
 
    int k;
    for (k=0; k<n; ++k){
        printf("a[%i] : ",k+1);
        scanf("%f",&a[k]);
    }
 
    int kb=0,kc=0;
    for (k=0; k<n; ++k){
        if (a[k]>0){
            b[kb]=a[k];
            ++kb;
        }
        if (a[k]<0){
            c[kc]=a[k];
            ++kc;
        }
 
    }
 
    printf("B: \n");
    for (k=0; k<kb; ++k) printf("  %i: %f\n",k+1,b[k]);
 
    printf("C: \n");
    for (k=0; k<kc; ++k) printf("  %i: %f\n",k+1,c[k]);
 
    return 0;
}

import random

N = random.randrange(2,21)
a = [random.randrange(-9,10) for i in range(N)]
#a = [i+1 for i in range(N)]

print("N:",N)
print("Array a:\n",a)

b = [x for x in a if x > 0] 
c = [x for x in a if x < 0] 

print("Length of b:\n",len(b))
print("Array b:\n",b)
print("Length of c:\n",len(c))
print("Array c:\n",c)
									

program Array62;
var
  a,b,c:array[1..10] of integer;
  N,k,kb,kc:Integer;
 
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for k:=1 to N do
   begin
 
    write(k,' :');
    readln(a[k]);
   end;
 
   kb:=0;
   kc:=0;
 
   for k:=1 to N do
    begin
     if a[k]>0 then
      begin
       inc(kb);
       b[kb]:=a[k];
      end;
 
     if a[k]<0 then
      begin
       inc(kc);
       c[kc]:=a[k];
      end;
   end;
 
 
  Writeln('B(',kb,'):');
  for k:=1 to kb do writeln(k,' :',b[k]);
 
  Writeln('C(',kc,'):');
  for k:=1 to kc do writeln(k,' :',c[k]);
end.