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

const N = 5;

var i, j, min, mini:integer;

a: array[1..N, 1..N] of integer;

begin

min:=101;

mini:=N;

for i:=1 to N do

for j:=1 to N do a[i, j]:=random(100);

for j:=1 to N do

if a[3, j] <= min then begin

min:=a[3, j];

mini:= j;

end;

write(mini);

end.

Пример работы: