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

#include <stdio.h>
 
int main(void)
{
    int a[11];
    int k;
 
    for (k=0; k<10; ++k){         printf("a[%i] : ",k+1);         scanf("%i",&a[k]);     }       for (k=0; a[k]>=a[9]; ++k);
 
    if (k==10) 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,10) for i in range(N)]
print("Initial:")
print(A)

flag = True
for i in range(0,N-1):
    if A[i] < A[N-1]:
        print(i,A[i])
        flag = False
        break
if flag:
    print(0)
									

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