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

#include <stdio.h>

int main(void)
{
  ;int a[10];
  int k;

    for (k=0; k<10; ++k){ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;printf("a[%i] : ",k+1); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;scanf("%i",&a[k]); &nbsp;&nbsp;&nbsp;&nbsp;} &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;for (k=8; ((a[0]>=a[k]) ||&nbsp;&nbsp;(a[k]>=a[9])) && (k>0) ; --k);
    if (k==0) printf("0\n: ");
      else printf("%i\n: ",a[k]);
    return 0;
}

import random

#N = random.randint(10,25)
N = 10
print("N = ", N)

A = [random.randrange(1,20) for i in range(N)]
print("Initial:")
print(A)

k = -1
for i in range(1,N-1):
    if A[0] < A[i] and A[i] < A[N-1]:
        print(i,A[i])
        k = i
print(k)
									

program Array19;
var
 a:array[1..10] of integer;
 k:Integer;
 
begin
 for k:=1 to 10 do
 begin
 write(k,' :');
 readln(a[k]);
 end;
 
 k:=9;
 While (((A[1]>=A[k]) or (A[k]>=A[10])) and (k>0)) do dec(k);
 if k=0 then writeln ('0')
 else Writeln (k);
end.