Найти средне-арифмитическое каждого столбца и занести в отдельный массив (qbasik)

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure tform2.button2click(sender: tobject); var i, j,   k: integer; max: integer; begin   with stringgrid1 do for j: = 0 to colcount - 1 do   begin   k: = 0;   max: = strtoint(cells[j,0]);     for i: = 0 to rowcount - 1 do       begin         if strtoint(cells[j,i]) > max then           begin           max: = strtoint(cells[j,i]);           k: = i;           end;       end;   stringgrid2.cells[j,k]: = '0';   end; end;

Var b,c,d: integer;       a: array [1..100] of integer;       begin       randomize;       writeln('введите длину массива');       readln(b);       d: =1;               for c: =1 to b do begin         a[c]: =random(10);           writeln(a[c]);             if a[c]   < > 0 then d: =d*a[c];           end;         writeln('произведение не нулевых элементов массива  ',d);         end.

ответ:

1) система базами данных

2)

3)поле бд - это столбец таблицы содержащий определенные свойства

запись бд - это строка таблицы записанная в поля

4)

1) создать пустую базу данных;

2) создать таблицы базы данных;

3) связать таблицы (создать схему данных) с указанием правил контроля целостности данных;

4) заполнить таблицы данными.

5)

конструктор - это то, с чего вы делаете таблицы, запросы, формы и т. д.

таблицы – это основные объекты любой базы данных. в них хранятся все данные, имеющиеся в базе, а так же таблицы хранят и структуру базы (поля, их типы и свойства).

6) 1) откройте таблицу в режиме конструктора. измените имя поля.

    2) щелкнуть левой кнопкой мыши в столбце имя поля (field name) на имени поля, подлежащего переименованию.

    ввести новое имя поля или отредактировать старое имя.

    нажать клавишу или переместить указатель текущей записи на любую другую запись.

объяснение:

в 6 2) не уверен вроде бы это тоже через конструктор.