Описание родословной с дерева представляет собой модель.​

#include <ctime>
#include <iostream>

using namespace std;

int main(){
srand(time(NULL));
int n;
cout << "Vvedite N << endl;
cin >> n;
int arr[n];
int a,b;
cout << "Vvedite diapozon A-B cherez probel" << endl;
cin >> a >> b;
for (int i=0; i<n; i++) a[i]=rand()%b+a;
int s50 = 0;
int ss50 = 0;
int s = 0;
int ss = 0;
for (int i=0; i<n; i++) {
if (a[i]<50) {
s50+=a[i];
ss50++;
} else {
s+=a[i];
ss++;
}
}
cout << "Srednee arifmeticheskoe chisel menshe 50 ravno " << s50/ss50 << endl;
cout << "Srednee arifmeticheskoe chisel ostalnix elementov ravno " << s/ss;
return 0;
}

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;

 var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');

 var Лет := 0;

 while Запас >= Порог do

 begin

   Запас := Запас * Прирост - Отлов;

   Inc(Лет);

   if Лет > 1000 then

   begin

     Println('И на тысячу лет хватит!');

     Exit

   end

 end;

 Println(Лет - 1)

end.

Введите х в процентах: 12.5Введите A, B, C в тоннах: 300 90 753