18 , только ответьте на все вопросы, надо и ! 1.как установить связи между таблицами в access 2. какие существуют отношения между таблицами? 3. зачем нужен мастер подстановок в access 4.с чего можно создавать таблицы в access 5.как сделать несколько ключевых полей в access?

1) существует несколько методов создания связи, один из которых заходим в схему данных и выделяем нужное поле и перетаскиваем его на другое поле для установления связи (после чего в диалоговом окне жмем флажок "обеспечение целосности данных") связь готова
2) между таблицами существуют следующие отношения:
-один ко многим(наиболее частое)
-один к одному
- многие ко многим
3) мастер подстановок нужен для того чтобы облегчить пользователю базы данных "жизнь", не вводить по нескольку раз одни и теже данные. а брать уже готовые заранее данные.
4) с конструктора таблиц, с запросов
5) зажатой клавишой ctrl выбрать несколько полей нажать ключевое поле

Для того чтобы...
Школа:
1). Объяснить всё подробно и понятно в виде презинтации (в графическом виде) учителю или ученикам (друзьям)
2).Если будет всё понятно объяснить с схемы или рисунка (если это есть в презинтации)
3).Доказать что ты можешь и умеешь работать с презинтациями.
4).И конечно же для того чтобы получить хорошую отметку (оценку)
Дома:
1).Для самообучения в домашних условиях (чтобы было всё тебе понятно для кого - либо задания)
2).Для творческих целей.
3).Для игр (рисовать или создавать фигуры)
4).Для показа презинтации родственникам.
5).Для получения уважения родственников.
                      ОТВЕТ 101 %! ГАРАНТИРУЮ... УДАЧИ :)

Const
  n = 10;

var
  a, b, c: array[1..n] of integer;
  i, j, kb, kc, t: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  kb := 0; kc := 0;
  for i := 1 to n do
  begin
    a[i] := random(101) - 50;
    Write(a[i]:4);
    if a[i] < 0 then begin Inc(kb); b[kb] := a[i] end
    else begin Inc(kc); c[kc] := a[i] end
  end;
  Writeln;
  { теперь массив b содержит отрицательныые элементы, с - остальные }
  for i := 1 to kb - 1 do
    for j := 1 to kb - 1 do
      if b[j] > b[j + 1] then
      begin t := b[j]; b[j] := b[j + 1]; b[j + 1] := t end;
  { сливаем массивы b и c в массив а}
  i := 0;
  for j := 1 to kb do begin i := i + 1; a[i] := b[j] end;
  for j := 1 to kc do begin i := i + 1; a[i] := c[j] end;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -8  43 -24   8 -45 -13  40  17  46
Результирующий массив
 -45 -32 -24 -13  -8  43   8  40  17  46