3. Дан двумерный массив. Найти номер строчки, в котором расположен наибольший элемент

Базу программы составит цикл

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

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

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

If A(i, 3) gt;= Max Then

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

End If

Next i

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

В итог выводим k, содержащий номер строчки.

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.