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

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

import random

N = random.randrange(2,11)
a = sorted([random.randrange(0,10) for i in range(N)])
b = sorted([random.randrange(0,10) for i in range(N)])

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

c = sorted(a+b)

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

c2 = []
i = 0
a_idx = 0
b_idx = 0
while i < 2*N and a_idx < N and b_idx < N :
##    print("i:",i,"; a_idx:",a_idx,"; b_idx:",b_idx)
    if a[a_idx] == b[b_idx] :
        c2.append(a[a_idx])
        c2.append(b[b_idx])
        a_idx += 1
        b_idx += 1
        i += 2
    elif a[a_idx] < b[b_idx] :
        c2.append(a[a_idx])
        a_idx += 1
        i += 1
    else :
        c2.append(b[b_idx])
        b_idx += 1
        i += 1
if a_idx == N :
    while b_idx < N :
        c2.append(b[b_idx])
        b_idx += 1
if b_idx == N :
    while a_idx < N :
        c2.append(a[a_idx])
        a_idx += 1

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

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