[Страдалецъ]

Так попробуй:

Код:

1 2 3 4 5 6 7 8

Max := A[1,1]; Min := A[1,1]; for i:= 1 to N do for j:=1 to M      do begin         if Max < A[i,J] then Max := A[i,J];         if Min > A[i,J] then Min := A[i,J];         end;

Особенность работы Random требует такой записи:

Код:

1	A[i,j]:= random(MaxM+1)

Если вам надо при запуске программы получать каждый раз разные значения для random, то добавьте в начало программы:

Код:

1	Randomize;