Быстрее, 1111111111111111111111! ! 1! 1! ! 1! 1! 2! 1! 1! 1! 1

function fibonacchi(x:integer):integer;

// функция возвращает порядковый номер введённого числа

// ряда Фибоначчи. Если число не является элементом

// из данного ряда, то функция возвращает -1

var counter:integer = 2;

   s1,s2,s3:integer;

begin

   s1 := 0;

   s2 := 1;

   s3 := 0;

   if x = 0 then fibonacchi:=1

   else if x = 1 then fibonacchi:=2

   else begin

       while s3 < x do begin

           s3 := s1 + s2;

           s1 := s2;

           s2 := s3;

           inc(counter);

       end;

       if s3 = x then fibonacchi:=counter

       else fibonacchi:=-1;

   end;

end;

begin

   write(fibonacchi(13));

end.

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

int main(void) {
   
    srand(time(NULL));
    int array[10];
    int i;
   
    /* заполняем массив. "% 100" означает что случайные числа не смогут быть больше 99, если это не нужно то можно оставить просто "array[i] = rand();" */
    for (i = 0; i < 10; i++)
        array[i] = rand() % 100;
   
    /* выводим массив на экран */
    printf("Массив: %d", array[0]);
    for (i = 1; i < 10; i++)
        printf(", %d", array[i]);
    putchar('\n');
   
    long min, max;
    /* ищем минимальный элемент */
    min = array[0];
    for (i = 1; i < 10; i++)
        if (min > array[i])
            min = array[i];
    /* ищем максимальный элемент */
    max = array[0];
    for (i = 1; i < 10; i++)
        if (max < array[i])
            max = array[i];
    /* выводим их сумму */
    printf("Сумма максимального и минимального элементов массива: %ld\n", min + max);
}