Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается эл

[bayker]

не могу никак решить. прошу помощи!

Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать ин-дексы элемента с найденным значением.


вот наработка:

program devyat;
uses crt;
type mas=array[1..100,1..100] of real;
var matr:mas;
n,h,m,s,i,j:integer;
min,min1,g:real;

BEGIN
writeln ('vvedite kol-vo strok');
read (n);
writeln ('vvdite kol-vo stolbcov');
read (m);
for i:=1 to n do
begin
for j:=1 to m do
begin
writeln ('vvedite [',i,';',j,'] element');
read(matr[i,j]);
end;
end;

for i:=1 to n do
begin
min:=matr[i,1];
writeln ('min1 ',min);
for j:=1 to m do
g:=matr[i,j];
if g<min then
begin
min:=matr[i,j];
s:=j;
end
else
s:=1;
writeln ('mins [',i,';',s,']');
end;

for i:=1 to n do
begin
for j:=1 to m do
write(matr[i,j],' ');
writeln;
end;
repeat until keypressed;
end.

криво проверяет условие на нахождение наименьшего элемента в строке.

[Figushkin]

Сложная задача... не как не могу понять.

[Z1000000]

for i:=1 to n do
begin
min:=matr[i,1];
s:=1; // Добавиь это
writeln ('min1 ',min);
for j:=1 to m do
g:=matr[i,j];
if g<min then
 begin
 min:=matr[i,j];
 s:=j;
 end;
else s:=1;//Убери это
writeln ('mins [',i,';',s,']');
end;

[bayker]

спасибо) вот ток еще одна трабла возникла, не могу придумать как сделать так чтобы при вводи в массив программа не допускала повторения элементов

[Z1000000]

program bbb;
label 1;
type mas=array[1..100,1..100] of real;
var
  matr:mas;
  n,h,m,s,i,j,i1,j1:integer;
  min,min1,g,Elem:real;
begin
writeln ('vvedite kol-vo strok');
read (n);
writeln ('vvdite kol-vo stolbcov');
read (m);
for i:=1 to n do
for j:=1 to m do
begin
repeat
 writeln ('vvedite [',i,';',j,'] element');
 read(Elem);
 for i1:=1 to i-1 do
  for j1:=1 to m do
   if matr[i1,j1] = Elem then
    begin
    writeln('Element already exists inside matrix');
    goto 1;
    end;
 for j1:=1 to j-1 do
  if matr[i,j1] = Elem then
   begin
   writeln('Element already exists inside matrix');
   goto 1;
   end;
 matr[i,j] := Elem;
 break;
1:
until False;
end;

for i:=1 to n do
 begin
 for j:=1 to m do
  write(matr[i,j],' ');
 writeln;
 end;

end.

[bayker]

спасибо большое)