=D5*E5
Объяснение:
Относительные ссылки (C2*D2) изменяются при копировании:
1) если ссылка копируется из строки в строку, то изменяется значение строки
копируем из E4 в F7, т.е. из 4 строки в 7 строку (слева направо)
|7 - 4| = 3 (модуль нужен при расчёте сдвига справа налево)
номер строки в формуле 2
2 + 3 = 5
2) если ссылка копируется из столбца в столбец, то изменяется значение столбца
копируем из E4 в F7, т.е. из столбца E в столбец F
Тут нужно знание английского алфавита: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Буква F идёт в алфавите сразу за буквой E, значит и столбцы в формуле изменятся на следующую за ней букву алфавита (на 1)
столбцы в формуле C и D
C → D
D → E
При копировании формулы =C2*D2 из ячейки Е4 в ячейку F7 получим =D5*E5
n = 15;
var
a, b: array[1..n] of integer;
i, j, step, t: integer;
flag: boolean;
begin
Randomize;
Writeln('Исходные элементы массива');
for i := 1 to n do
begin
a[i] := Random(10) - 5;
Write(a[i]:4)
end;
{ Сортируем массив (метод Шелла) }
step := n div 2;
while step > 0 do
begin
for j := n - step downto 1 do
begin
i := j;
while i <= n - step do
begin
if a[i] > a[i + step] then
begin
t := a[i]; a[i] := a[i + step]; a[i + step] := t
end;
i := i + step
end
end;
step := step div 2
end;
{
проходим по массиву и если элемент встречается более одного раза подряд,
переносим его в другой массив
}
j := 0; t := a[1]; flag := false;
for i := 2 to n do
begin
if (a[i] = t) and (not flag) then
begin
j := j + 1; b[j] := t; flag := true
end
else begin flag := false; t := a[i] end
end;
Writeln;
Writeln('Отобранные элементы массива');
for i := 1 to j do Write(b[i]:4);
Writeln
end.
Тестовое решение:
Исходные элементы массива
-2 4 1 -3 -1 -2 -5 -1 2 4 1 3 -5 -2 -3
Отобранные элементы массива
-5 -3 -2 -1 1 4