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

#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,i3;
    for (i=0; i<n-1; ++i){
        for (i2=0; i2<n-i; ++i2){             if (a[i2]>a[i2+1]){
                a[i2]+=a[i2+1];
                a[i2+1]=a[i2]-a[i2+1];
                a[i2]-=a[i2+1];
            }
        }
        for (i3=0; i3<n;++i3) printf("  %i: %i\n",i3+1,a[i3]);
        printf("\n");
    }
 
    return 0;
}

import random

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

for i in range(1,N) :
    for j in range(0,N-i) :
        if A[j] > A[j+1] :
            A[j], A[j+1] = A[j+1], A[j]

print("Modified Array:")
print(A)
									

program Array112;
var
a : array [1..6] of real;
N,N2,i,i2,i3: integer;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;
 
 N2:=N;
 for i:=1 to N-1 do
  begin
   i2:=1;
   N2:=N2-1;
   while (i2<=N2) do     begin      if a[i2]>a[i2+1] then
      begin
       a[i2]:=a[i2]+a[i2+1];
       a[i2+1]:=a[i2]-a[i2+1];
       a[i2]:=a[i2]-a[i2+1];
      end;
     inc(i2);
    end;
   for i3:=1 to N do writeln(a[i3]:7:0);
   readln;
  end;
end.