решение Матрицы Delphi7

[Naposaram]

Друзья помогите бедному студенту в Delphi7 надо вот это сделать:
в заданной матрице найти строку, в которой все элементы меньше заданного значения E, отсортированть эту строку в порядке возрастания элементов и переставить ее на последнее место. Подсчитать сумму всех осталбных элементов массива.

Уже третий месяц мучуюсь, а препод у нас такое ..... а ж говорить не хочется, помогите плиззз

[Rusl92]

Я сделал в Турбо Паскале, тебе нужно только ввод данных обеспечить:

readln(n,m,E); {здесь можно n:=strtoint(Edit1.text) например и т.д.}
for i:=1 to n do
  for j:=1 to m do
   readln(a[i,j]);{вот здесь переделываешь под чтение из СтрингГрида}
for i:=1 to n do

  for j:=1 to m 
    sum[i]:=sum[i]+a[i,j];{в элементы массива записываем сумму строки}

 end;
 i:=0;
 while k=1 do
  begin
   i:=i+1;
  for j:=1 to m do
   if a[i,j]<E then
    begin
     sum[i]:=0;{если строка не подходит то сумму элементов этой строки делаем 0}
     g:=i; {запоминаем эту строку}    
     k:=1; {чтобы завершить главный цикл}
              {данное решение расчитывает только на нахождение ОДНОЙ такой строки}

     break;
    end;
   
    for j:=1 to m-1 do {сортировка данной строки}
     if a[g,j]>a[g,j+1] then
      begin
       tmp:=a[g,j];
       a[g,j]:=a[g,j+1];
       a[g,j+1]:=tmp;
     end; 
   {далее нужно переставить ее на последнее место}
end.

Перестановку попозже напишу

[Naposaram]

а что в данном случае n и m?
*****
readln(n,m,E); {здесь можно n:=strtoint(Edit1.text) например и т.д.}
for i:=1 to n do
for j:=1 to m do
*****
спасибо тебе уже проще стало

[Drop]

а если таких строк (где все элементы меньше Е) несколько?

[Naposaram]

Сообщение от Drop

а если таких строк (где все элементы меньше Е) несколько?

а я даже не задумывался, ну значит и их перенести в конец