Есть задача:
В прямоугольной матрице в каждой строке поменять местами первый элемент строки и элемент, содержащий минимальное число в строке.
Заполнение и вывод матрицы я сделала. Потом создала еще один одномерный массив, в который переписала строки.
Теперь хочу сравнить элементы строк между собой. Но что-то опять не в ту степь зашла. Как нужно сделать так, чтобы каждая строка рассматривалась отдельно? У меня, кажется, ищется минимальное значение во всей матрице...
И если даже найду минимальное значение в каждой строке, то как поменять первый элемент с минимальным в строке? Наверное, нужна еще какая-то переменная...
function min_v_strokah:integer;
var i,j : integer; {peremennie dlya cikla}
min : integer; {dlya poiska minimalnogo znacheniya}
begin
writeln;
for i:=1 to a1 do
begin
for j:=1 to b1 do
begin
sravnenie[j]:=matr[i,j]; {perepisivaem stroki v massiv sravnenie[j]}
if sravnenie[j] > matr[i,j] then
begin
matr[i,j] := min;
end;
end;
writeln;writeln;
end;
end;
sravnenie[j]:=matr[i,j];
условиеsravnenie[j] > matr[i,j]
всегда будет ложным. – andrybak 18 янв '12 в 7:36