Дефрагментация диска.
Жёсткий диск компьютера содержит записанные файлы, деля их на фрагменты, и храня в отдельных кластерах, иногда располагающихся далеко друг от друга.
Фрагментация — это разделение файла и разбрасывание его элементов по разным кластерам. Поэтому когда файлов становится много, компьютер начинает работать медленно. Для решения этой проблемы существуют программы для дефрагментации диска. Дефрагментация — это процесс собирания фрагментов файла в соседних кластерах. Дефрагментацию жёстких дисков можно выполнить в операционной системе Windows. Для этого нужно открыть меню «свойства» жёсткого диска и на вкладке «Сервис» нажать кнопку «Выполнить дефрагментацию». Сначала программа выполнит анализ дискового пространство. Дефрагментация может длиться довольно долго.
Также дефрагментацию можно сделать в бесплатной программе Auslogics Disk Defrag Free
Архивация файлов.
Архивацию файлов можно выполнить в программах WinRAR и 7ZIP.
Эти программы нужны, чтобы распаковать архивированные файлы и сжать большие по объёму. А также множество больших файлов превратить в один небольшой файл — архив.
Эти программы нужны, чтобы сэкономить дисковое пространство. Большие и редкоиспользуемые файлы можно сжать и хранить в виде архива.
1)
var a: array [1..9] of integer;
begin
for var i := 1 to 9 do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
var sum := 0;
for var i := 1 to 9 do
if a[i] > 45 then
sum += a[i];
writeln('Сумма: ', sum);
end.
2)
var a: array [1..9] of integer;
begin
for var i := 1 to 9 do
begin
write('Введите ', i, ' элемент: ');
readln(a[i]);
end;
var sum := 0;
for var i := 1 to 9 do
sum += a[i];
writeln('Сумма: ', sum);
end.
3)
var a: array [1..9] of integer;
begin
for var i := 1 to 9 do
begin
a[i] := random(-10, 10);
write(a[i], ' ');
end;
writeln();
var min := a[1];
for var i := 2 to 9 do
if (a[i] mod 2 <> 0) and (a[i] < min) then
min := a[i];
writeln('Min: ', min);
end.
