9. напишите функцию, которая вычисляет n-е число фибоначчи. pascal информатика 10 класс

#include <iostream>

#include <vector>

using namespace std;

void solve1(){

   const int N = 7, X = 6;

   int cnt = 0;

   vector<int> a(N);

   for(auto &i: a) cin >> i;

   for(auto &i: a) cnt += (i > X);

   cout << cnt;

}

void solve2(){

   const int N = 12;

   int res = 1;

   vector<int> p(N);

   for(auto &i: p) cin >> i;

   for(auto &i: p)

       if(!(i & 1))

           res *= i;

   (res == 1) ? cout << 0 : cout << res;

}

void solve3(){

   const int N = 17;

   int x, ans = 0;

   vector<int> t(N);

   for(auto &i: t) cin >> i;

   cin >> x;

   while(++x < N)

       ans += t[x];

   cout << ans;

}

int main(){

   //solve1();  //task1

   //solve2();  //task2

   //solve3(); //task3

}

Программа:

Pascal:

var

 arr: array[1..3, 1..4] of integer;

 i, j, n, count: integer;

begin

 write('Введите число: '); readln(n);  // ввод числа n

 for i := 1 to 3 do

   for j := 1 to 4 do begin

     arr[i, j] := random(100);  // заполнение массива случайными числами от 0 до 100

     if arr[i, j] > n then  // если число больше заданного числа, то...

       count += 1;  // увеличиваем значение переменной count на 1

   end;

 writeln('Массив: ', arr);  // вывод массива

 writeln('Чисел, больше ', n, ': ', count);  // вывод кол-ва элементов, больше n.

end.

Чтобы заполнить массив, для начала нужно выделить ему память. После этого запрашивает значение "заданного числа" n. После выделения памяти и запроса числа нужно в двойном цикле обойти все ячейки массива (i - номер строки, j - номер столбца). После начала цикла сначала заполняем массив случайными числами (от 0 до 100), а после находим количество элементов, больше заданного числа. В конце выводим сам массив и кол-во элементов, больше заданного числа.