Расширьте родословное дерево в форме таблицы Какая информационная модель в данном случае подходит больше таблице или дерево Класс.

//#1

var

 a, b: array of integer;

 n: integer;

procedure parse(var a, b: array of integer; n: integer);

begin

 var sum_p: integer := 0;

 var sum_m: integer := 0;

 var data: integer := 0;

 setlength(a, n); setlength(b, n);

 var i:integer;

 for i := low(a) to high(a) do  

 begin

   readln(a[i]); readln(b[i]);

   sum_p += 3a[i];//kov vo zabitix myachei

   sum_m += b[i];//kol vo promaxov

   if b[i] > 1 then inc(data);

 end;

 writeln(sum_p - sum_m);

 writeln(data);

end;

begin

 readln(n);

 parse(a, b, n);

end.

//#2

var

 a: array of integer;

 n: integer;

procedure parse(var a: array of integer; n: integer);

var

 i: integer;

begin

 var data: integer := 0;

 setlength(a, n);

 var sum: integer := 0;

 for i := low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;

 writeln(sum / (high(a) + 1):0:4);

 write(data);

end;

begin

 readln(n);

 parse(a, n);

end.

# include <iostream>

using namespace std;

int main() {

int k;                                    //ввод кол-ва строк в треугольннике

cout << "k = ";                            // И ввод степени 2-и

cin >> k;

int **a = new int *[k + 1];

for (int i = 0; i <= k; i++)

 a[i] = new int[k + 1];            //выделяем память под i-ую строку      

//заполняем массив

a[0][0] = 1;

a[1][0] = a[1][1] = 1;

for (int i = 2; i <= k; i++) {

 a[i][0] = 1;

 for (int j = 1; j < i; j++)

  a[i][j] = a[i - 1][j - 1] + a[i - 1][j];

 a[i][i] = 1;

}

//вычисляем 2^k

int S = 0;

for (int i = 0; i <= k; i++)

 if (i == k)  

  for (int j = 0; j <= i; j++)

   S += a[i][j];

cout << S;

 system("pause");

 return 0;

}