Вопрос по информатике:
В квадратной матрице А(7,7) поменять местами минимальные элементы первой и третьей строк, максимальные элементы главной и побочной диагоналей
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.05.2017 07:02
- Информатика
- remove_red_eye 18654
- thumb_up 25
Ответы и объяснения 1
CLSDIM A(7, 7)FOR i = 1 TO 7 FOR j = 1 TO 7 A(i, j) = INT(RND * 100) NEXT jNEXT iminj = 1: minj2 = 1FOR i = 1 TO 7 IF A(1, minj) > A(1, i) THEN minj = i END IF IF A(3, minj2) > A(3, i) THEN minj2 = i END IFNEXT iSWAP A(1, minj), A(3, minj2)maxi1 = 1: maxj1 = 1: maxi2 = 1: maxj2 = 7j = 1: k = 7FOR i = 1 TO 7 IF A(maxi1, maxj1) > A(i, j) THEN maxi1 = i: maxj1 = j END IF IF A(maxi2, maxj2) > A(i, k) THEN maxi2 = i: maxj2 = k END IF k = k - 1 j = j + 1NEXT iFOR i = 1 TO 7 FOR j = 1 TO 7 PRINT A(i, j);
- 18.05.2017 16:41
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.