---

Предпочтения = Новый Структура("Цвет, Фильм, ВремяГода");

Цвет = "";
ВвестиСтроку(Цвет, "Введите любимый цвет");
Предпочтения.Цвет = Цвет;

Фильм = "";
ВвестиСтроку(Фильм, "Введите любимый фильм");
Предпочтения.Фильм = Фильм;

ВремяГода = "";
ВвестиСтроку(ВремяГода, "Введите любимое время года");
Предпочтения.ВремяГода = ВремяГода;

ТекстРезультата = "Любимый цвет: " + Предпочтения.Цвет + Символы.ПС
	+ "Любимый фильм: " + Предпочтения.Фильм + Символы.ПС
	+ "Любимое время года: " + Предпочтения.ВремяГода;

ОткрытьЗначение(ТекстРезультата);
```[span_3](start_span)[span_3](end_span)[span_4](start_span)[span_4](end_span)

#### Вариант 2. Через «Массив»
Вставь в `Модуль приложения`[span_5](start_span)[span_5](end_span):
```bsl
Предпочтения = Новый Массив(3);

Цвет = "";
ВвестиСтроку(Цвет, "Введите любимый цвет");
Предпочтения[0] = Цвет;

Фильм = "";
ВвестиСтроку(Фильм, "Введите любимый фильм");
Предпочтения[1] = Фильм;

ВремяГода = "";
ВвестиСтроку(ВремяГода, "Введите любимое время года");
Предпочтения[2] = ВремяГода;

ТекстРезультата = "Любимый цвет: " + Предпочтения[0] + Символы.ПС
	+ "Любимый фильм: " + Предпочтения[1] + Символы.ПС
	+ "Любимое время года: " + Предпочтения[2];

ОткрытьЗначение(ТекстРезультата);
```[span_6](start_span)[span_6](end_span)[span_7](start_span)[span_7](end_span)

#### Вариант 3. Через «СписокЗначений»
Вставь в `Модуль приложения`[span_8](start_span)[span_8](end_span):
```bsl
Предпочтения = Новый СписокЗначений;
Предпочтения.Добавить("");
Предпочтения.Добавить("");
Предпочтения.Добавить("");

Цвет = "";
ВвестиСтроку(Цвет, "Введите любимый цвет");
Предпочтения[0].Значение = Цвет;

Фильм = "";
ВвестиСтроку(Фильм, "Введите любимый фильм");
Предпочтения[1].Значение = Фильм;

ВремяГода = "";
ВвестиСтроку(ВремяГода, "Введите любимое время года");
Предпочтения[2].Значение = ВремяГода;

ТекстРезультата = "Любимый цвет: " + Предпочтения[0].Значение + Символы.ПС
	+ "Любимый фильм: " + Предпочтения[1].Значение + Символы.ПС
	+ "Любимое время года: " + Предпочтения[2].Значение;

ОткрытьЗначение(ТекстРезультата);
```[span_9](start_span)[span_9](end_span)[span_10](start_span)[span_10](end_span)

* **Для отчёта:** сделай скриншот кода выбранного варианта (или всех трёх по очереди) и всплывающего окна с тремя введёнными ответами[span_11](start_span)[span_11](end_span)[span_12](start_span)[span_12](end_span).

---

### Упражнение №13б. Поиск исторического события по году

#### Вариант 1. Через «Структуру»
Вставь в `Модуль приложения`[span_13](start_span)[span_13](end_span):
```bsl
События = Новый Структура;
События.Вставить("Год1", 1961); События.Вставить("Событие1", "Полёт Гагарина");
События.Вставить("Год2", 1861); События.Вставить("Событие2", "Отмена крепостного права в России");
События.Вставить("Год3", 988);  События.Вставить("Событие3", "Крещение Руси");
События.Вставить("Год4", 1991); События.Вставить("Событие4", "Распад СССР");
События.Вставить("Год5", 1945); События.Вставить("Событие5", "Окончание Великой Отечественной войны");
События.Вставить("Год6", 862);  События.Вставить("Событие6", "Основание Руси");

ВведенныйГод = 0;
ВвестиЧисло(ВведенныйГод, "Введите год");

НайденноеСобытие = "";
Для Шаг = 1 По 6 Цикл
	Если События["Год" + Шаг] = ВведенныйГод Тогда
		НайденноеСобытие = События["Событие" + Шаг];
		Прервать;
	КонецЕсли;
КонецЦикла;

Если НайденноеСобытие <> "" Тогда
	ОткрытьЗначение("В " + ВведенныйГод + " году произошло: " + НайденноеСобытие);
Иначе
	ОткрытьЗначение("Событие, связанное с датой " + ВведенныйГод + ", в базе отсутствует.");
КонецЕсли;
```[span_14](start_span)[span_14](end_span)[span_15](start_span)[span_15](end_span)

#### Вариант 2. Через двумерный «Массив»
Вставь в `Модуль приложения`[span_16](start_span)[span_16](end_span):
```bsl
События = Новый Массив(6, 2);
События[0][0] = 1961; События[0][1] = "Полёт Гагарина";
События[1][0] = 1861; События[1][1] = "Отмена крепостного права в России";
События[2][0] = 988;  События[2][1] = "Крещение Руси";
События[3][0] = 1991; События[3][1] = "Распад СССР";
События[4][0] = 1945; События[4][1] = "Окончание Великой Отечественной войны";
События[5][0] = 862;  События[5][1] = "Основание Руси";

ВведенныйГод = 0;
ВвестиЧисло(ВведенныйГод, "Введите год");

НайденноеСобытие = "";
Для Шаг = 0 По 5 Цикл
	Если События[Шаг][0] = ВведенныйГод Тогда
		НайденноеСобытие = События[Шаг][1];
		Прервать;
	КонецЕсли;
КонецЦикла;

Если НайденноеСобытие <> "" Тогда
	ОткрытьЗначение("В " + ВведенныйГод + " году произошло: " + НайденноеСобытие);
Иначе
	ОткрытьЗначение("Событие, связанное с датой " + ВведенныйГод + ", в базе отсутствует.");
КонецЕсли;
```[span_17](start_span)[span_17](end_span)[span_18](start_span)[span_18](end_span)

#### Вариант 3. Через «СписокЗначений» *(самый лаконичный)*
Вставь в `Модуль приложения`[span_19](start_span)[span_19](end_span):
```bsl
События = Новый СписокЗначений;
События.Добавить(1961, "Полёт Гагарина");
События.Добавить(1861, "Отмена крепостного права в России");
События.Добавить(988, "Крещение Руси");
События.Добавить(1991, "Распад СССР");
События.Добавить(1945, "Окончание Великой Отечественной войны");
События.Добавить(862, "Основание Руси");

ВведенныйГод = 0;
ВвестиЧисло(ВведенныйГод, "Введите год");

НайденныйЭлемент = События.НайтиПоЗначению(ВведенныйГод);

Если НайденныйЭлемент <> Неопределено Тогда
	ОткрытьЗначение("В " + ВведенныйГод + " году произошло: " + НайденныйЭлемент.Представление);
Иначе
	ОткрытьЗначение("Событие, связанное с датой " + ВведенныйГод + ", в базе отсутствует.");
КонецЕсли;
```[span_20](start_span)[span_20](end_span)[span_21](start_span)[span_21](end_span)

* **Для отчёта по 13б:**
  1. Запусти (`F5`), введи `1961` $\rightarrow$ заскриншоть окно: `В 1961 году произошло: Полёт Гагарина`[span_22](start_span)[span_22](end_span)[span_23](start_span)[span_23](end_span).
  2. Запусти ещё раз, введи любой другой год (например, `2000`) $\rightarrow$ заскриншоть окно: `Событие, связанное с датой 2000, в базе отсутствует.`[span_24](start_span)[span_24](end_span)