Var
i,j:integer;
a:array[1..12,1..10]of integer;
begin
writeln ('Исходная таблица: ');
for i:=1 to 12 do
begin
for j:=1 to 10 do
begin
a[i,j]:=50+random(10);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
for i:=5 to 12 do
for j:=1 to 10 do
a[i-1,j]:=a[i,j];
for j:=1 to 10 do a[12,j]:=0;
writeln ('Измененная таблица: ');
for i:=1 to 11 do
begin
for j:=1 to 10 do
write(a[i,j]:3);
writeln;
end;
<span>end.</span>
1) Обьемный алгоритм
2) Если есть циклы (огромное количество итераций)
3) Выполнение сложных вычислительных операций
Если на диске много фрагментированных файлов, скорость их чтения с носителя уменьшается. Помимо замедления компьютера в работе с файловыми операциями (таких, как чтение и запись), фрагментация файлов негативно сказывается на «здоровье» жёсткого диска, так как заставляет постоянно перемещаться позиционирующие головки диска, которые осуществляют чтение и запись данных.
Для устранения проблемы фрагментации существуют программы-дефрагментаторы, принцип работы которых заключается в «сборе» каждого файла из его фрагментов.