АndyWhite Program z1;  Var a: array [1..100,1..100] of integer; i,j,n,m,min,t:integer;Begin  write('Введите кол-во столбцов - ');  readln(n);  write('Введите кол-во строк - ');  readln(m);  randomize;  for j:=1 to m do  begin    for i:=1 to n do    begin      a[i][j]:=random(9)-0;      write (a[i][j],' ');    end;    writeln;  end;    min:=a[1][4];  t:=1;  for i:=2 to n do  begin    if (a[i][4]<min)       then begin             min:=a[i][4];             t:=i;           end;  end;  writeln('Минимальный элемент - ',min);  writeln('Столбец - ',t);End.