модель базы данных, представляющая собой дерево где существует главный элемент корень включающий подчинённые объекты листья называется​

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=MatrixRandom(7,7,0,9);
  var k:=0;
  for var i:=0 to 6 do begin
    for var j:=0 to 6 do begin
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

Тестовое решение:
  2  1  7  3  3  2  7
  9  2  9  2  0  5  5
  4  2  6  9  4  6  0
  1  0  3  5  4  5  9
  6  3  6  0  2  0  8
  0  8  4  3  2  1  8
  6  0  4  4  5  4  0
Кол-во элементов на [1,5]: 27

Вариант "совсем для школы"

const
  n=7;
var
  a:array[1..n,1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10);
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

1) Бюджет
2) Линк(и) на прайс магазина(ов), где будете брать систему, обязательно укажите Город в котором будет покупаться.
3) Что собираетесь брать:
- Только системник
- Ситемник и монитор
- Системник, монитор и переферия
- Иные уточняйте какие варианты.
4) Указывайте для каких задач берётся сабж.
а) Для игровых систем:
- Указывайте разрешение монитора, частоту развертки, аппаратную синхронизацию (Free|G-Sync), есть на нём цифровые входы (HDMI|DVI|DP) или модель монитора, а также параметры анизотропной фильтрации и сглаживания, которые будут использоваться в играх.
- Указывайте названия игр или хотябы жанры.
б) Для систем, на которых будет слушаться Музыка:
- Уточняйте, что за ММАС Мультимедийная Акустическая Система у Вас стоит или планируется к приобретению.
- Уточняйте носитель/тип файлов/битрейт.
- Уточняйте жанры Музыки.
в) Для графических станций:
- Уточняйте какой монитор используется.
- Уточняйте с какими программами Вы будете работать.
г) Иные.
5) Уточняйте планируете ли Вы разгон системы.
6) Уточняйте планируете ли Вы апгрейд системы в ближайшие 6 месяцев.
Если планируете, то сообщайте когда и в каком объёме финансовых вливаний.
7) Если у Вас есть какое-то железо, которое Вы ещё планируете использовать, уточняйте какое именно. Если его много, то Вам в ветку по Апгрейду.
8) Если у Вас есть какое либо требования, уточняйте:
- Брендовая принадлежность ATI/AMD или Abit/DFI, ets.
- Требования по дизайну/размерам.
- Требования по шуму. Уточняйте здесь.
- Иные.
9) Наброски конфигурации ПК

ВНИМАНИЕ: ВСЕ посты не заполненные по вышеописанному запроснику будут маркироваться Кураторами off-top'ом - вероятность, что Вам в этом случае ответят крайне низка.

Правила Конференции и Правила Форума действуют в полном объёме.
Локальные правила ветки:
Бессмысленные посты "+1" и иже сним, Флуд, Флейм и Оверквотинг будут премировать ЖК на месяц.
Фанатство награждается БАНом на 24часа.
Умышленное коверканье Русского языка и неиспользование тега [rus][ /rus] у постов, написанных транслитом, как и злоупотребление терминами награждается ЖК на 2 недели.
Оффтоп в рамках обсуждаемого вопроса разрешен, но должен быть заключён в тег [ off ][ /off ].

Если обсуждение затягивается более чем на 5 постов по конкретной позиции - дать линк на специализированную ветку и продолжать дискуссию уже в ней.

Просьба не злоупотреблять меткой "EOL", по русски: по меньше используйте клавишу "Enter", посты объёмные - не утяжеляйте их сверх меры.