cd ~
mkdir folder1
cd folder1
touch file1
touch file2
touch file3
touch file4
tar cvf archive.tar *
mkdir ../folder2
cd ../folder2
touch new_file
cp ../folder1/archive.tar .
tar rvf archive.tar new_file
tar vf archive.tar --delete file3
tar vf archive.tar --list > list1
tar vf ../folder1/archive.tar --list > list2
diff list1 list2
#Разъединение выполнить не получится, потому что все файлы пустые, но если засовывать не пустые, то
split -b 10M archive.tar "part" # вместо 10M нужный размер
cat part* > joined_archive.tar
tar vf archive.tar --list
tar vf joined_archive.tar --list
tar czvf final_archive.tar archive.tar ../folder1/archive.tar joined_archive.tar
N = 5;
Var
A:array[1..N] of integer;
i:integer;
P:real;
Begin
Randomize;
P:=1;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N*2+1);
Write(' ',A[i]);
P:=P*A[i];
End;
WriteLn;
WriteLn('Среднее геометрическое его элементов: ',Power(P,1/N):0:3);
End.