через раз работает, хорошая программа, но.... Опции

[hideo]

uses crt;
const
 n=3;
 m=3;

var
 x: array[1..n, 1..m] of integer;
 i, j, k:integer;

 s_max, s_min: integer;
 flag_min, flag_max: boolean;

Begin
 clrscr;
 randomize;
 for i := 1 to n do
   begin
     for j:=1 to m do
       begin
         x[i,j]:=random(11);
         write(x[i,j]:2, ' ')
       end;
     writeln
   end;
 writeln;

 for i := 1 to n do
   begin
     s_min := 1; s_max := 1;
     for j := 2 to m do
       if x[i, j] > x[i, s_max] then s_max := j
       else
         if x[i, j] < x[i, s_min] then s_min := j;

     flag_min := true; flag_max := true;
     for k := 1 to n do
       begin
         flag_min := flag_min and (x[k, s_max] >= x[i, s_max]);
         flag_max := flag_max and (x[k, s_min] <= x[i, s_min]);
       end;

     if flag_max then
       writeln('Fpoint - ','x[ ',i,', ',s_min,' ] = ',x[i, s_min])
     else
       if flag_min then
         writeln('Fpoint - ','x[ ',i,', ',s_max,' ] = ',x[i, s_max]);
   end;
 readln
end.

Хорошая программа. Спасибо за нее. Только не могу понять, почему она работает не всегда? Randomize работатет от системных часов и в некоторое время прога сидловые точки находит, а в некоторое просто выводит матрицу. Исправить глюк я не смог. Так что уважаемые гуру подскажите. Не оставьте, так сказать, ламера.

Сообщение отредактировано: volvo - 6.11.2006 20:21

[klem4]

А ты не думал о том, что в очень многих случаях этих точек в матрице просто напросто нету ?