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

#include <stdio.h>
int main(void)
{
    int a[10], b[10], c[10];
    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 k=0;
    b[k]=1;
    c[k]=a[k];
    for (i=1;i<n;++i){
        if (a[i-1]==a[i]) ++b[k];
        else{
            ++k;
            b[k]=1;
            c[k]=a[i];
        }
    }
    for (i=0; i<=k;++i) printf("  %i>%i:%i\n",i+1,b[i],c[i]);
    return 0;
}

import random

N = random.randrange(2,20)
#a = [2*(i+1) for i in range(N)]
A = [random.randrange(0,3) for i in range(N)]
B = []
C = []
print("N = ", N)
print("Array A:")
print(A)

x = A[0]
B.append(x)
C.append(1)
k = 0
for i in range(1,N) :
    if x == A[i] :
        C[k] += 1
    else :
        x = A[i]
        B.append(x)
        C.append(1)
        k += 1       
print()
print("Array B:")
print(B)
print("Array C:")
print(C)
									

program Array116;
var
 a,b,c : array [1..10] of real;
 N,i,k: integer;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;
 
 k:=1;
 b[k]:=1;
 c[k]:=a[k];
 for i:=2 to N do
  begin
   if a[i-1]=a[i] then b[k]:=b[k]+1
   else
    begin
     inc(k);
     b[k]:=1;
     c[k]:=a[i];
    end;
  end;
 
 
 for i:=1 to k do writeln(c[i],' - ', b[i] );
end.