как определить наименьший нечетный элемент в двух мерном массиве

[ВДПУ]

спасибо большое, я и сам вчера догадался как правильно сделать))

min:= a[1,1];
 for i:=1 to n do
 begin
   for j:=1 to m do
   if (a[i,j]<min) and (a[i,j] mod 2<>0)  then
   begin
    min:=a[i,j];
    a[i,j]:=a[1,1];
    a[1,1]:=min;
    end
    end;

[ВДПУ]

А можете подсказать, как в процедуре random, задать диапазон от 120 до 139?

[s-andriano]

Сообщение от ВДПУ

спасибо большое, я и сам вчера догадался как правильно сделать))

min:= a[1,1];
 for i:=1 to n do
 begin
   for j:=1 to m do
   if (a[i,j]<min) and (a[i,j] mod 2<>0)  then
   begin
    min:=a[i,j];
    a[i,j]:=a[1,1];
    a[1,1]:=min;
    end
    end;

Вопрос остается в силе: можете ли Вы объяснить, что в этом фрагменте Вы делаете и для чего?

А можете подсказать, как в процедуре random, задать диапазон от 120 до 139?

random(20) + 120;

[ВДПУ]

да могу. А нужно?))