Программу дописать по vba: в общем нужно сделать матрицу с рандомными числами, найти наименьшее число в ней, и сделать другую матрицу на порядок меньше, с вычеркнутым столбцом и строкой на пересечении которых находится наименьшее число из первой матрицы. я нашел наименьшее число, а как дольше делать понять не могу. вот начало самой программы: sub laba9() dim n as integer, a() as integer, i as byte, j as byte, min as integer, l1 as integer, l2 as integer n = val(inputbox("введите размерность массива")) redim a(n, n) sheets("лист1").select sheets("лист1").range("a1: aaa100").clear for i = 1 to n for j = 1 to n a(i, j) = rnd * 100 cells(i, j) = a(i, j) next j next i min = a(1, 1) l1 = 1 l2 = 2 for i = 1 to n for j = 1 to n if a(i, j) < min then min = a(i, j) l1 = i l2 = j end if next j next i end sub

Option explicit sub laba9()       dim n as integer, a() as integer, i as byte, j as byte, min as integer, l1 as integer, l2 as integer       dim b() as integer       n = val(inputbox("введите размерность массива"))       redim a(n, n)       sheets("лист1").select       sheets("лист1").range("a1: z26").clear       for i = 1 to n               for j = 1 to n                       a(i, j) = rnd * 100                       cells(i, j) = a(i, j)               next j       next i       min = a(1, 1)       l1 = 1       l2 = 2       for i = 1 to n               for j = 1 to n                   if a(i, j) < min then                               min = a(i, j)                               l1 = i                               l2 = j                       end if               next j       next i       redim b(n - 1, n - 1)       for i = 1 to l1 - 1               for j = 1 to l2 - 1                       b(i, j) = a(i, j)               next j               for j = l2 + 1 to n                       b(i, j - 1) = a(i, j)               next j       next i       for i = l1 + 1 to n               for j = 1 to l2 - 1                       b(i - 1, j) = a(i, j)               next j               for j = l2 + 1 to n                       b(i - 1, j - 1) = a(i, j)               next j       next i       for i = 1 to n - 1               for j = 1 to n - 1                       cells(i + n + 2, j) = b(i, j)               next j       next i end sub

Воздушный шар

Объяснение:

Неадекватной моделью для объекта земной шар является воздушный шарик потому что карта и глобус являются максимально приближенными к действительности (к планете Земля)