1.Создать БД «Салон красоты», состоящую из 2 таблиц – «Услуга» (т1) и «Клиент» (т2). Поле «Услуга» оформить как Поле со списком. Содержание базовых таблиц приведено ниже: 2. Установить / проверить связь между таблицами. 3.Заполнить таблицы тестовыми данными (таблица Услуга – 3-5 записей, таблица Клиент – 6-12 записей). 4.Для таблиц Клиент и Услуга создать форму для заполнения. С формы добавить в таблицу Услуга 1-2 записи, в таблицу Клиент – 2–3 записи. 5. Выполнить простой запрос (мастер запросов): создать таблицу с полями «ФИО», «Год рождения», «Услуга (код)», «Название услуги». «Цена услуги» . 6. Выполнить запрос на выборку ( конструктор запросов): вывести список всех клиентов, получивших одну из двух конкретных услуг è показать поля «ФИО», «Год рождения)» , «Код услуги», «Название услуги». 7. Выполнить запрос на выборку ( конструктор запросов): создать вычисляемые поля для определения цены скидки и цены услуги со скидкой è показать поля «ФИО», «Название услуги» , «Цена услуги», «Скидка (%)», «Стоимость скидки» ((вычисляемое поле)), «Цена услуги со скидкой» (вычисляемые поле). 8. Выполнить 2 отчета (мастер отчетов), показав все данные по таблицам Клиент и Услуга. 9. Выполнить отчет (мастер отчетов), показав все данные по запросу из пункта 6 или из пункта 7.

1. program primer; //имя программы вроде(необязательно)
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец

2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3

mins = 9*99

maxs = -9*999

count = int(input())

if count < 2:

   print("Не может быть меньше двух")

else:

   for i in range(count):

       a = int(input())

       if a < mins:

           mins = a

       elif a > maxs:

           maxs = a

if count > 2:

   print(maxs)

   print(mins)

   

# такой же, но более памятозатратный.

# можно конечно оптимизировать, но для учебного варианта пойдёт

a = []

count = int(input())

if count < 2:

   print("Не может быть меньше двух")

else:

   for i in range(count):

       d = int(input())

       a.append(d)

if count > 2:

   print(max(a))

   print(min(a))