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

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.

ЦИФОР ВСЕГО 10 А ЧИСЕЛ БЕСКОНЕЧНО

X - в A1, у - в А2.
Тогда формулы:
=(1+A1^2)/(2*КОРЕНЬ(1+A1:A14))
=2*A1+SIN(A1)^2/(2+A1+A1^2)
=2*A1^2*COS(A1)^2-2*A2^2

Var
N,k,i:longint;
A:array [1..1000] of longint;
Begin
Readln(n);
K:=0;
For i:=1 to n do
Readln(a[i]);
For i:=1 to n do
If (a[i] mod 6 = 0) and (a[i] mod 10 = 4) then
K:=k+1;
Writeln(k);
End.