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

понадобится 24 секунды.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

интерфейс, ёмкость, размер, время произвольного доступа, скорость вращения шпинделя, надежность, количество операций ввода-вывода в секунду, потребление энергии, сопротивляемость ударам, скорость передачи данных, объем буфера.

(жирным шрифтом для всех, обычным для жестких, флеш и тд.)

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую