97

ПОМОГИТЕ, ПОЖАЛУЙСТА. Изменить текст программы примера так…

robocop90 03 июля 2022

ПОМОГИТЕ, ПОЖАЛУЙСТА. Изменить текст программы примера так, чтобы на экран выводилось не только значение минимального элемента каждой строкиматрицы, но и его индексы.

категория: информатика

87

Program pr1; Var A: array [1… 4, 1… 4] of integer; {резервирование памяти под массив А (4 на 4) }i,j, max, p, k: integer; {переменные i,j вводятся как индексы массива} Begin randomize; For i: =1 to 4 doFor j: =1 to 4 do A[i,j]: =random (100); {ввод элемента матрицы}max: =A[1,1]; k: =1; p: =1; {первоначальное предположение}For i: =1 to 4 do For j: =1 to 4 doif A[i,j]>max then begin {Если текущий элемент больше максимального }max: =A[i,j]; {max=A[i,j], запоминаем индексы текущего элемента}k: =i; p: =j; end; writeln ('Исходный массив: '); For i: =1 to 4 do beginFor j: =1 to 4 do write (A[i,j], '); writeln; end; a[k, p]: =a[k, p]+a[1, 1]; // добавленные строкиa[1, 1]: =a[k, p] — a[1, 1]; a[k, p]: =a[k, p] — a[1, 1]; writeln ('Преобразованный массив: '); For i: =1 to 4 do beginFor j: =1 to 4 do write (A[i,j], '); writeln; end; writeln ('Максимальный элемент матрицы=', max); write ('Он находится в строке №' , k); writeln (' и в столбце №' , p); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...