8. Система управления базами данных (СУБД) — это
А. базы данных, содержащие сведения о системе управления объектом
Б.программное обеспечение, управляющее работой компьютера
В.система, в которой создаются базы данных
Г.программное обеспечение, предназначенное для работы с базами данных
9.Столбец базы данных называется
А.запись Б.Ячейка В.поле
Г.строка
10.Какие типы полей могут быть в базе данных?
А.числовое Б.графическое В.логическое
Г.символьное
11.Первичный ключ в базе данных – это
А.Логин/пароль для входа в базу данных Б.запись, значения которой не
повторяются​

Const
  n = 10;

var
  a,b: array[1..n] of integer;
  i, s, imax, smax: integer;

begin
  Randomize;
  Writeln('Элементы массива A');
  for i := 1 to n do
  begin
    a[i] := Random(30)+5;
    Write(a[i]:3);
  end;
  Writeln;
  smax:=0; imax:=0;
  Writeln('Элементы массива B');
  for i := 1 to n do
  begin
    b[i] := Random(30)+5;
    Write(b[i]:3);
    s:=a[i]*b[i];
    if smax<s then begin imax:=i; smax:=s end
  end;
  Writeln;
  Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ',
    a[imax],'x',b[imax],'=',smax)
end.

Тестовое решение:
Элементы массива A
 31 30 34  9 12 11 11 24 34 29
Элементы массива B
 18 16 15 16 19 22 24 22 25  5
Прямоугольник номер 9 имеет максимальную площадь 34x25=850

Const
  n = 10;

var
  a,b: array[1..n] of integer;
  i, s, imax, smax: integer;

begin
  Randomize;
  Writeln('Элементы массива A');
  for i := 1 to n do
  begin
    a[i] := Random(30)+5;
    Write(a[i]:3);
  end;
  Writeln;
  smax:=0; imax:=0;
  Writeln('Элементы массива B');
  for i := 1 to n do
  begin
    b[i] := Random(30)+5;
    Write(b[i]:3);
    s:=a[i]*b[i];
    if smax<s then begin imax:=i; smax:=s end
  end;
  Writeln;
  Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ',
    a[imax],'x',b[imax],'=',smax)
end.

Тестовое решение:
Элементы массива A
 31 30 34  9 12 11 11 24 34 29
Элементы массива B
 18 16 15 16 19 22 24 22 25  5
Прямоугольник номер 9 имеет максимальную площадь 34x25=850