Предмет: Информатика,
автор: рысь007
помогите с третьим номером. нужно составить программу
Приложения:

Ответы
Автор ответа:
0
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен";
ПЕР
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)
КОН;
Вывод.Цепь("^")
КОН
КОН Задание.
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен";
ПЕР
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)
КОН;
Вывод.Цепь("^")
КОН
КОН Задание.
Интересные вопросы
Предмет: Математика,
автор: leraomg65
Предмет: Английский язык,
автор: ann8365
Предмет: Русский язык,
автор: atemirokov
Предмет: Алгебра,
автор: Semenova290314