Какая наименьшая единица хранения данных е бд​

ответ на этот вопрос - хранимое поле.

наименьшая единица - поле

Var     i,su1,su2: integer; a: array[1..10] of integer;     input,output: text; begin    assign(input,'input.txt');     assign(output,'output.txt');   reset(input);     rewrite(output);   for i: =1 to 10 do         read(input,a[i]);   for i: =1 to 10 do      begin                if a[i]> 0                      then                           inc(su1,a[i])           else                        inc(su2,a[i]);           end;     writeln(output,'сумма положительных: ',su1);   write(output,'сумма отрицательных: ',su2); close(input); close(output); end.

Cортировка была реализована методом пузырька var i, n, j, b, k: integer; m, a: array [1..20] of integer; begin   n : = 1;   for i : = 1 to 20 do   begin     read (m[i]);     if m[i] > 5 then     begin     a[n] : = m[i];     inc(n);     end;   end;   for j : = 1 to n - 1 do     for i : = 1 to n - j do       if a[i] > a[i + 1] then       begin         b : = a[i];         a[i] : = a[i + 1];         a[i + 1] : = b;       end;   write('начальный   массив: ');   for i : = 1 to 20 do   write (m[i], ' ');   writeln;   write('новый массив: ');   for i : = 1 to n do   write (a[i], ' '); end.