Потому что время жизни флеш памяти ограничено гораздо сильнее жесткого диска и определяется оно для флешки количеством записи/перезаписи.
Const
n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;
begin
//генератор случайных чисел. Диапазон от 1 до 10.
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)+1;
write(a[i,j]," ");
end;
writeln();
end;
//Проверка условия и переприсвоение, если верно.
for i:=1 to n do
for j:=1 to n do
begin
if ((<span>(i+j) mod 2)=0) then
</span> a[i,j]:=a[1,2];
end;
//Вывод полученного массива.
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]," ");
end;
writeln();
end;
//Ожидание.
readln();
end.
Пронумеруем символы в исходной строке:
1-И, 2-Н, 3-Ф, 4-О, 5-Р, 6-М, 7-А, 8-Т, 9-И, 10-К, 11-А.
Перепишем алгоритм, раскрывая циклы и подставляя значения.
<span>m := 10
b := Извлечь(</span><span>'ИНФОРМАТИКА', 10) 'K'⇒b
k:=4
с := Извлечь(</span>'ИНФОРМАТИКА', 4)<span> 'O'⇒c
</span>b := Склеить(b, с)<span> 'KO'⇒b
</span><span><span><span>k:=5
с := Извлечь(</span>'ИНФОРМАТИКА', 5)<span> 'Р'⇒c
</span>b := Склеить(b, с)<span> 'KOР'⇒b
</span></span>k:=1
с := Извлечь(</span>'ИНФОРМАТИКА', 1)<span><span> 'И'⇒c
</span>b := Склеить(b, с)</span><span> 'KОРИ'⇒b
</span><span><span>k:=2
с := Извлечь(</span>'ИНФОРМАТИКА', 2)<span><span> 'Н'⇒c
</span>b := Склеить(b, с)</span><span> 'KОРИН'⇒b
</span></span><span><span>k:=3
с := Извлечь(</span>'ИНФОРМАТИКА', 3)<span><span> 'Ф'⇒c
</span>b := Склеить(b, с)</span> 'KОРИНФ'⇒b</span>
Переменная b примет значение строки <span> 'KОРИНФ'</span>