Создание и изменение ключевых полейОткройте таблицу в режиме конструктора.Выделите одно или несколько полей, которые необходимо определить как ключевые. Для выделения одного поля выберите область выделения строки нужного поля. Для выделения нескольких полей нажмите и удерживайте клавишу CTRL и выберите область выделения для каждого поля.Нажмите кнопку Ключевое поле на панели инструментов.Допускается назначение ключевым полем поля, содержащего данные, однако, если в этом поле имеются повторяющиеся или пустые значения, будет выведено сообщение об ошибке. Получивший такое сообщение пользователь имеет три возможности: выполнить запрос на поиск повторяющихся записей для поиска записей, содержащих повторяющиеся или пустые значения в поле, и изменить эти значения; выбрать другое поле или добавить поле счетчика и определить его как ключевое.Для составного ключа существенным может оказаться порядок образующих ключ полей. Сортировка записей осуществляется в соответствии с порядком ключевых полей в бланке в режиме конструктора таблицы. Если необходимо указать другой порядок сортировки без изменения порядка ключевых полей, то сначала определите ключ, как это описано выше, а затем нажатием кнопки Индексы на панели инструментов откройте окно "Индексы" и укажите другой порядок полей для индекса с именем "PrimaryKey".
Uses crt; const N=10; var a:array [1..N] of integer; x,k:integer; begin k:=0; for x:=1 to 10 do begin a[x]:=random(99)+1; writeln('a[',x,']:',a[x]); if a[x] mod 3=0 then inc(k); end; writeln('Количество элементов, кратных 3:',k); end. --- Для турбо паскаль: uses crt; const N=10; var a:array [1..N] of integer; x,k:integer; begin clrscr; k:=0; for x:=1 to 10 do begin a[x]:=random(100)+1; writeln('a[',x,']:',a[x]); if a[x] mod 3=0 then inc(k); end; writeln(k); readln; end.
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(99)+1;
writeln('a[',x,']:',a[x]);
if a[x] mod 3=0 then inc(k);
end;
writeln('Количество элементов, кратных 3:',k);
end.
---
Для турбо паскаль:
uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
clrscr;
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(100)+1;
writeln('a[',x,']:',a[x]);
if a[x] mod 3=0 then inc(k);
end;
writeln(k);
readln;
end.
Скрины, как должна работать программа, приложила.