Новое поколение баз данных, основанное на сочетании трех принципов: реляционной модели, стандартов на описание объектов и принципов объектно-ориентированного программирования это: а) объектно-ориентированные базы данных б) объектно-реляционные базы данных в) реляционные базы данных г) сетевые базы данных

Объектно-ориентированные БД.
Объектно-реляционные содержат объектно-ориентированные расширения языка и надстроек. Реляционные - табличные БД, сетевые - связи между объектами данных могут быть установлены в произвольном порядке

Зрительные:
а) Буквы
б) Цифры
в) Ноты

Слуховые:
а) Звук человеческой речи
б) Школьный звонок
в) Звук сирены

Осязательные:
а) Рукопожатие
б) Азбука Брайля
в) "Дай пять"

Обонятельные:
а) Обозначение территории, закрепленной за каким-либо представителем животного мира (например, собаки).
б) Запах чего-то на улице из ближайшего заведения общественного питания.
в) Запах газа при протечке.

Вкусовые:
а) Определение съедобности продукта.
б) Вкус какого-либо продукта питания.
г) Дегустация продукта специальным человеком для проверки на отравленность перед подачей государю.

В человеческом общении применяются зрительные, слуховые и осязательные знаки.

1)
var a: array [1..10] of integer;
    i, m: integer;
begin
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then m := m + a[i];
     end;
     writeln(m);
end.

2)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

3)
var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.

4)
var a: array [1..10] of integer;
    i, m, c: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 0) then
          begin
               m := m + a[i];
               c := c + 1;
          end;
     end;
     if (c > 0) then writeln(m / c);
end.

Вас =)