?>
База данных - это: * A. совокупность данных, организованных по определенным правилам;B. совокупность программ для хранения и обработки больших массивов информации;C. интерфейс, поддерживающий наполнение и манипулирование данными;D. определенная совокупность информации.Таблицы в базах данных предназначены: *A. для хранения данных базы;B. для отбора и обработки данных базы;C. для ввода данных базы и их просмотра;D. для автоматического выполнения группы команд;E. для выполнения сложных программных действий.Без каких объектов не может существовать база данных: *A. без модулей;B. без отчетов;C. без таблиц;D. без форм;E. без макросов;Столбцы в таблице базы данных, называются : *A. поля;B. строки;C. записи;D. ячейки;Строки в таблице базы данных, называются : *A. поля;B. строки;C. записи;D. ячейки;Содержит ли какую-либо информацию таблица, в которой нет ни одной записи? *A. пустая таблица не содержит ни какой информации;B. пустая таблица содержит информацию о структуре базы данных;C. пустая таблица содержит информацию о будущих записях;D. таблица без записей существовать не может.Содержит ли какую-либо информацию таблица, в которой нет полей? *A. содержит информацию о структуре базы данных;B. не содержит ни какой информации;C. таблица без полей существовать не может;D. содержит информацию о будущих записях.В электронной таблице основной элемент рабочего листа – это: *A. ячейка;B. строка;C. столбец;D. формула.Выберите верное обозначение строки в электронной таблице: *A. 18D;B. K13;C. 34;D. A.Выберите верный адрес ячейки в электронной таблице: *A. 11D;B. F12;C. AБ3;D. B1A.
Ответы
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.