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

program zz1;

const n = 5; m = 4;

var i, j, p, min: integer;

a: array[1 ... n, 1 ... m] of integer;

begin

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=random (10); / /заполнение матрицы случайными числами и вывод на экран

write (a[i, j]:3);

end;

writeln; / / переходим на новую строку для вывода ответа

end;

min:=1000000; / / задаем начальное значение

for j:=1 to m do

if a[4, j] < min then begin min:=a[4, j]; p:=j; end; / / находим минимальный в 4 строке

writeln (' минимальный элемент в 4 строке ', p); / / выводим ответ

end.