Варіант 1 1. Створити базу даних, в якій передбачити збереження в кількох таблицях наступної інформації: код продавця, прізвище продавця, паспортні дані продавця, дата народження продавця, адреса продавця, код покупця, прізвище покупця, паспортні дані покупця, адреса покупця, код продажу, дата продажу, назва товару, кількість, ціна од. товару.
2. За до конструктора таблиць створити структури таблиць. Передбачити поля, що дозволяють встановити зв'язки між таблицями.
3. Використовуючи схему даних зв'язати таблиці між собою з параметром підтримки цілісності даних, каскадним оновленням та каскадним вилученням зв'язаних полів.
4. Створити форми для введення даних. Ввести дані (4-5 записів для довідникових таблиць та 8-10 записів для облікової).
5. За до створеної бази даних розв'язувати наступні задачі:
а) виводити на екран дані про покупців;
б) виводити на екран дані про вказаного продавця;
в) виводити на екран дані про придбаний товар та його вартість;
г) виводити на екран дані про продані т

1) элемент с номером K заменяется на 2

var

a:array [1..20] of integer;

i,n,k:integer;

begin

readln(n);

for i:=1 to n do

begin

a[i]:=random(50);

write(a[i]:3);

end;

writeln;

readln(k);

a[k]:=2;

for i:=1 to n do

write(a[i]:3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var
a: array [1..20] of integer;
i, n, k: integer;

begin
readln(n);
for i := 1 to n do
begin
a[i] := random(50);
write(a[i]:3);
end;
writeln;
readln(k);
for i:=n+1 downto k do a[i]:=a[i-1];
a[k] := 2;
for i := 1 to n+1 do
write(a[i]:3);
end.

program prim2;
uses crt;
var i, n, r: integer;
a: array[1.. 10000] of integer;
begin
clrscr;
randomize;
write ('число элементов ');
readln(n);
for i:=1 to n do
begin
{Получаем случайные числа и выводим их на экран.}
a[i]:=random(45)-22;
write(a[i],' ');
end;
{В полученном массиве меняем соседние элементы.}
i:=1;
{Пока I<=N-1.}
while i<=n-1 do
begin
{Меняем значения соседних элементов. }
r:=a[i];a[i]:=a[i+1];a[i+1]:=r;
{Увеличиваем индекс на два.}
inc(i,2);
end;
{Распечатываем измененный массив.}
for i:=1 to n do
write(a[i],' ');
readkey;
end.