= D4*(E2+E3+E4)
Т.к. перемещение А8 идёт вправо вниз на 1 ячейку (на В9), то все остальные данные тоже смещаются вправо вниз на 1 ячейку.
Var
M1, M2, M3 :set of 0..9;
i:integer;
begin
M1 := [1, 2, 3];
M2 := [1, 4, 2, 5];
M3 := M1 * M2;
write('Результат: ');
for i:=0 to 9 do
if i in M3 then write(i)
else write('*');
writeln
end.
Тестовое решение:
Результат: *12*******
во-первых, модель должна быть подобна исследуемому объекту, а во-вторых, модель должна быть проще изучаемого объекта, чтобы оказалось возможным ее изучение. Основное назначение модели заключается в возможности проведения с моделью: экспе-риментов, анализа и изучения, которые невозможны с самим исследуемым объектом.
В связи с этим к моделям предъявляются также требования по глубине и по времени. То есть, модель должна обладать необходимой глубиной описания, достаточной для решения актуальных проблем объекта, и дополнительными ограничениями по времени, необходимому для принятия решения.
Модель всегда тесно связана с проблемой, т. к. решение проблемы всегда начинается с моделирования проблемной ситуации объекта, а затем уже переходят к моделированию стратегических альтернатив и моделированию последствий принимаемого решения, куда, естественно, включаются такие элементы, как цель развития объекта управления, состояние внешней среды, функционирование объекта и др.
<span>В свою очередь, моделирование определяется как «практическое или тео-ретическое оперирование объектом, при котором изучаемый предмет заменяется каким-либо естественным или искусственным аналогом, через исследование которого мы проникаем в предмет изучения.</span>
===== PascalABC.NET =====
function GetMatrix: array[,] of integer;
begin
var (m, n) := ReadInteger2('Число строк и столбцов в массиве:');
Result := MatrRandom(m, n, 0, 20)
end;
function MinCol(a: array[,] of integer): integer;
begin
for var j := 0 to a.ColCount - 1 do
if a.Col(j).All(p -> p > 10) then
begin
Result := j;
Exit
end;
Result := -1;
end;
begin
var M := GetMatrix;
M.Println(4);
var k := MinCol(M);
if k = -1 then
Println('Нет столбцов, в которых все элементы больше 10')
else
Println('Минимальный номер найденного столбца:', k + 1)
end.