Добрый вечер! примеры иерархических и сетевых

Иерархической базой данных является  реестр windows,каталог папок windows,доменная система имен   подключенных к интернету компьютеров. сетевой базой данных фактически является  всемирная паутина  компьютерной сети интернет. это из того что я помню,хотя их намного больше.

Var       a: array[1..100] of integer;       i, n, sum: integer; begin       n : = 30;             writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(35) - 10;               write(a[i], ' ');       end;       writeln();             sum : = 0;       for i : = 1 to n do               if a[i] > 0 then                       sum : = sum + a[i];       writeln('sum = ', sum); end.

Var a: array[1..5,1..5] of integer; i,j: integer; begin for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln; for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               if i mod 2 = 0 then a[i,j]: =100;               write(a[i,j]: 4,' ')               end;       writeln       end; end.