В матрице А (10, 10) найти максимальные элементы в строках и максимальный элемент матрицы - Pascal ABC
Формулировка задачи:
Помогите выполнить задание.
В матрице А (10, 10) найти максимальные элементы в строках и максимальный элемент матрицы. Вывести исходную матрицу, найденные значения элементов и номера строк и столбцов, где они находятся.
Решение задачи: «В матрице А (10, 10) найти максимальные элементы в строках и максимальный элемент матрицы»
textual
Листинг программы
Const n=10; Var A:array[1..n,1..n] of integer; i,j,imax,jmax,jColMax:integer; Begin imax:=1;jmax:=1; For i:=1 to n do begin For j:=1 to n do Begin A[i,j]:=random(51)-25; write(A[i,j]:4); if A[i,j] > A[imax, jmax] then Begin imax:=i; jmax:=j; End; End; writeln; End; writeln('Max = ',A[imax, jmax], ' его индексы A[',imax,',',jmax,']'); For i:=1 to n do Begin jColMax:=1; For j:=2 to n do if A[i,j] > A[i, jColMax] then jColMax := j; writeln('В ',i,' строке max элемент = ',A[i, jColMax], ' его индекс = ',jColMax); End; End.
Объяснение кода листинга программы
- Константа n и переменная A объявлены с типами данных и размерами соответственно: n - целое число, A - массив целых чисел размером 10x10.
- Переменные i, j, imax, jmax и jColMax инициализированы значением 1.
- Запускается цикл
For i := 1 to n do
, который выполняется n раз, где n - значение константы n. - Внутри цикла
For i := 1 to n do
запускается вложенный циклFor j := 1 to n do
, который также выполняется n раз. - Внутри вложенного цикла
For j := 1 to n do
присваивается значение A[i,j] переменной A[i,j] и выводится значение A[i,j] с помощью функции write(A[i,j]:4). - Выполняется проверка: если значение A[i,j] больше значения A[imax, jmax] (где imax и jmax - переменные, которые хранят текущие максимальные значения), то обновляется значение imax на i и значение jmax на j.
- После окончания вложенного цикла
For j := 1 to n do
выводится значение A[imax, jmax] с помощью функции write(A[imax, jmax]:4) и выводится строкаMax =
. - Запускается еще один цикл
For i := 1 to n do
, который также выполняется n раз. - Внутри цикла
For i := 1 to n do
инициализируется переменная jColMax значением 1. - Внутри цикла
For i := 1 to n do
запускается вложенный циклFor j := 2 to n do
, который также выполняется n-1 раз (так как j начинается с 2). - Внутри вложенного цикла
For j := 2 to n do
выполняется проверка: если значение A[i,j] больше значения A[i, jColMax] (где jColMax - переменная, которая хранит текущий максимальный столбец), то обновляется значение jColMax на j. - После окончания вложенного цикла
For j := 2 to n do
выводится значение A[i, jColMax] с помощью функции write(A[i, jColMax]:4) и выводится строкаВ
. - Выводится значение i и jColMax с помощью функций write(i:4) и write(jColMax:4).
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д