Question

помогите с третьим номером. нужно составить программу

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен";

ПЕР
  A: РЯД 3, 3 ИЗ ЦЕЛ;
  сч1, сч2: ЦЕЛ;
  СПДС, МЭПС: ЦЕЛ;

УКАЗ
  СПДС := 0;
  ОТ сч1 := 0 ДО 2 ВЫП
    ОТ сч2 := 0 ДО 1 ВЫП
      УВЕЛИЧИТЬ(СПДС, A[сч1, сч2])
    КОН
  КОН;
  
  МЭПС := A[0, 0];
  ОТ сч1 := 1 ДО 2 ВЫП
    ЕСЛИ A[0, сч1] < МЭПС ТО МЭПС := A[0, сч1] КОн
  КОН;
  
  ОТ сч1 := 0 ДО 2 ВЫП
    ОТ сч2 := 0 ДО 2 ВЫП
      Вывод.ЧЦел("%d ", A[сч1, сч2], 0, 0, 0)
    КОН;
    Вывод.Цепь("^")
  КОН

КОН Задание.