Адо 3ахисту практичної роботи no1а+1. що таке база даних? 2. як створити базу даних? 3. перечисліть і дайте коротку характеристику об'єктам бази даних4. що таке ключове поле таблиці? 5. як називаються рядки та стовпчики таблиці6. назвіть режими створення таблиць7. що відносять до основних властивостей полів8. які типи даних підтримує ms access9. які властивості можна визначити на вкладці загальні10. опишіть тип даних майстер підстановок11. для чого призначена схема даних (вікнозв'язки)? 12. які типи зв'язків дозволяє реалізувати ms access13. назвіть додаткові прааметри створеного зв'язку чим бистріше тим ліпше​

Free Pascal

var

 a : array of array of integer;

 b : array of integer;

 s, i, j, n, m : integer;

begin

 writeln('Введите кол-во строк:');

 readln(m);

 writeln('Введите кол-во столбцов:');

 readln(n);

 randomize;

 setlength(a, n);

 setlength(b, m);

 for i:=0 to n-1 do

   setlength(a[i], m);

 for j:=0 to m-1 do begin

   s:=0;

   for i:=0 to n-1 do begin

     a[i,j] := random(50) - 25;

     if a[i,j] <0 then inc(s);

     write(a[i, j], '  ');

   end;

   b[j]:=s;

   writeln();

 end;

 writeln('--------------------------');

 for j:=0 to m-1 do

   writeln(j+1,' строка = ', b[j]);

end.

##

var h := MatrRandom(5, 5, -7, 7);

h.Println(4);

Print('Произведение положительных элементов первой строки массива равно',

  h.Row(0).Where(t -> t > 0).Product)

------------------------

##

var h := MatrRandom(5, 5, -7, 7);

h.Println(4);

h.Transform((v, i, j) -> j.IsEven and (v < 0) ? 100 : v);

Println('Результат замены отрицательных элементов в нечетных столбцах');

h.Println(4)

---------------------

##

var h := MatrRandom(5, 5, -7, 7);

h.Println(4);

var a := h.ElementsWithIndices.Where(t -> t[2] > t[1]).Select(t -> t[0]).ToArray;

Println('Массив из элементов, стоящих над главной диагональю');

a.Print