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

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

import random

N = random.randrange(3,21)
print("N = ", N)

a = [random.randrange(1,21) for i in range(N)]

##for i in range(0,N):
##    a[i] = i

print("Array:\n",a)

i = 1
while i < N-1 :
    if a[i-1] > a[i] and a[i] < a[i+1]:
        a[i] *= a[i]
        i += 2
    else :
        i += 1

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

program Array77;
var
  a : array[1..10] of integer;
  N,i,k,an:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  if a[1]<a[2] then k:=sqr(a[1]);
 
  if a[N] < a[N-1] then an:=sqr(a[N])
  else an:=a[N];
 
  for i:=2 to N-1 do
   if (a[i-1]>a[i]) and (a[i]<a[i+1]) then
    begin
     a[i-1]:=k;
     k:=sqr(a[i]);
    end
   else
    begin
     a[i-1]:=k;
     k:=a[i];
    end;
 
  a[N]:=an;
 
  for i:=1 to N do writeln(i,' :',a[i]);
end.