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

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

import random

N = random.randrange(2,10)
A = random.randrange(-10,10)
D = random.randrange(-5,5)
print("N = ", N)
print("A = ", A)
print("D = ", D)

a = [A + i*D for i in range(N)]
print(a)

D = []
for i in range(0,len(a)-1):
    D.append(a[i+1] - a[i])
min_D = min(D)
max_D = max(D)
print("Min:",min_D)
print("Max:",max_D)
if int(round(min_D - max_D)) == 0:
    print("Denominator of progression:",min_D)
else:
    print("0?")
									

program Array24;
var
  a:array[1..10] of integer;
  N,i,Raz:Integer;
 
begin
  Write('N: ');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  raz:=a[2]-a[1];
  for i:=2 to N do if raz <> a[i]-a[i-1] then raz:=0;
 
  Writeln (Raz);
end.