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

#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]=0;
    } else i=1;
 
    for (; i<n-1; ++i){
        if ((a[i-1]<a[i]) && (a[i]>a[i+1])) {
            a[i]=0;
            ++i;
        }
    }
 
    if ((i==n-1) && (a[n-2]<a[n-1])) a[n-1]=0;
 
    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)

for i in range(1,N-1):
    if a[i-1] < a[i] and a[i] > a[i+1]:
        a[i] = 9999999
for i in range(1,N-1):
    if a[i] == 9999999 :
        a[i] = 0

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

program Array76;
var
  a : array[1..10] of integer;
  N,an,i,k: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:=0
  else k:=a[1];
 
  if a[N] > a[N-1] then an:=0
  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:=0;
    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.