Як це зробити. Можна на вибір. Будь ласка.

алг

нач

сместиться в точку (2,3)

цифра6

цифра6

цифра6

цифра6

цифра6

цифра0

кон

Объяснение:

Вся программа:

использовать Чертежник

алг

нач

сместиться в точку (2,3)

цифра6

цифра6

цифра6

цифра6

цифра6

цифра0

кон

алг цифра0

нач

опустить перо

сместиться на вектор (-1,0)

сместиться на вектор (0,-2)

сместиться на вектор (1,0)

сместиться на вектор (0,2)

поднять перо

сместиться на вектор (2,0)

кон

алг цифра6

нач

опустить перо

сместиться на вектор (-1,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

поднять перо

сместиться на вектор (3,1)

кон

Название вс алгоритмов: цифра6 и цифра0

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var d:=MatrRandom(m,n,-99,99);
  d.Println(4); Writeln(4*d.ColCount*'-');
  var min:=d.ElementsByRow.Min; // значение минимального элемента
  Writeln('Искомое среднее: ',d.ElementsByRow.Where(t->t<>min).Average)
end.

Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив ***
   7 -31  80  21  38 -36  16
  42  93 -11  74  -6  37 -71
  15  90 -71 -88 -71  70 -27
  12  83  41  79  72  91 -88

Искомое среднее: 24.5