Опишите структуру реляционной базы данных. Перечислите структурные составляющие таблицы БД? Что понимают под главным ключом таблицы БД?

Const
  m=5;
  n=7;
var
  a:array[1..m,1..n] of integer;
  i,j,amax:integer;
  p:real;
begin
  Randomize;
  Writeln('Исходный массивэ');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  {Задача 1}
  amax:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]>amax then amax:=a[i,j];
  Writeln('Максимальный элемент равен ',amax);
  {Задача 2}
  p:=1;
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j] mod 2=0 then p:=p*a[i,j];
  Writeln('Произведение четных элементов равно ',p);
end.

Пример работы
Исходный массивэ
 94 20 49 80 70 55 40
 62 74 71 51 88 10 76
 68 11 11 74 96 50 69
 98 34 25 93 52 53 61
 68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33

Const
  m=10;
  n=8;
var
  a:array[1..m,1..n] of integer;
  i,j:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(20)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  Writeln('Результирующий массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
      else a[i,j]:=3*a[i,j];
      Write(a[i,j]:3)
      end;
    Writeln
    end
end.

Пример решения
Исходный массив
 12 10 12 20 17 17 28 23
 22 27 28 14 23 10 26 15
 29 13 10 29 26 11 17 24
 10 14 17 24 16 12 22 28
 17 25 26 24 25 22 17 23
 18 11 20 12 28 29 25 13
 26 11 28 19 17 27 22 10
 22 17 20 12 10 13 17 19
 14 10 27 28 13 11 20 16
 26 16 21 24 20 15 26 10
Результирующий массив
 36 20 36 40 51 51 84 69
 66 81 84 42 69 20 78 30
 87 39 20 87 78 33 51 72
 20 42 51 72 48 36 66 84
 51 50 78 72 50 66 51 69
 54 33 40 36 84 87 50 39
 78 33 84 57 51 81 66 20
 66 51 40 36 20 39 51 57
 42 20 81 84 39 33 40 48
 78 48 63 72 40 30 78 20