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
var a: array [1..10] of integer;
var i,s: integer;
begin
randomize();
for i:=1 to 10 do
a[i]:=random(10)+1;
//В столбик
for i:=1 to 10 do
writeln(a[i]);
//В строчку
writeln();
for i:=1 to 10 do
write(a[i],' ');
//Среднее арифметическое
s:=0;
for i:=1 to 10 do
s:=s+a[i];
writeln();
writeln('Среднее арифметическое: ',s/10);
// количество элементов массива, значение которых равно 4
s:=0;
for i:=1 to 10 do
if (a[i]=4) then s:=s+1;
writeln('Количество элементов массива,',
' значение которых равно 4: ',s);
end.