ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
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)
КОН;
Вывод.Цепь("^")
КОН
КОН Задание.