Выгрузить и скопировать в копию, передать по сети, удалить , очистить содержимое, удалить добавить строку столбец, заблокировать запись от удаления, перестроить таблицу индексов, сделать запрос, передать как результат под-запроса в другой запрос. оптимизировать(удалить пустоты в файловой базе)
1)
DIM A(9)
RANDOMIZE TIMER
FOR i = 1 TO 9 STEP 3
A(i) = i
A(i + 1) = INT(41 * RND) + 10
A(i + 2) = INT(A(i + 1) / A(i))
NEXT i
FOR i = 1 TO 9
PRINT "A("; i; ")="; A(i)
NEXT i
END
2)
DIM A(10)
RANDOMIZE TIMER
PRINT "Иcxoдный мaccив: "
FOR i = 1 TO 10
A(i) = INT(RND * 10) + 1
PRINT A(i),
NEXT i
PRINT
S = 0
FOR i = 1 TO 10
IF A(i) MOD 2 = 0 THEN S = S + A(i)
NEXT i
PRINT "Cyммa чeтныx элeмeнтoв = "; S
<span>END</span>
#include <iostream>
using namespace std;
int main() {
int n;
cin>>n;
int arr[n], k=0;
for (int i=0; i<n; ++i) {cin>>arr[i]; if (arr[i]==0) ++k;}
for (int i=0; i<n-1; ++i) {
for (int j=0; j<n-i-1; ++j) {
if (arr[j]>arr[j+1]) {
int temp;
temp=arr[j];
arr[j]=arr[j+1];
arr[j+1]=temp;
}
}
}
if (k>0) {
int m;
for (m=0; m<n; ++m) if (arr[m]==0) break;
for (int i=m; i<n-k; ++i) arr[i]=arr[i+k];
for (int i=n-k; i<n; ++i) arr[i]=0;
}
for (int i=0; i<n; ++i) cout<<arr[i]<<" ";
return 0;
}