Question

3. Дан двумерный массив. Определить номер строки, в котором расположен максимальный элемент третьего столбца массива. Если элементов с максимальным значением в этом столбце несколько, то должен быть найден номер строки самого нижнего из них.

Answer 1

Основу программы составит цикл

Мах = A(1, 3) ' Максимальный элемент

k = 1 ' номер строки с макс. элементом.

For i=1 To n ' цикл по строкам

If A(i, 3) >= Max Then

Max = A(i, 3) : k = i

End If

Next i

В цикле мы запоминаем макс. элемент и его строку. Если новый макс равен уже найденному, то меняем номер строки. Для этого стоит сравнение >=, а не просто >. Таким образом, сохраняется элемент с большим номером строки, то есть нижний.

В результат выводим k, содержащий номер строки.

Answer 2

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(m, n, -20, 20);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 Writeln('Номер искомой строки ', a.Col(2).LastIndexMax + 1)

end.