про матрицу, Получить матрицу, в которой отсутствует строка, содержащая минимальный Опции

[nilson]

Получить матрицу, в которой отсутствует строка, содержащая минимальный элемент

[volvo]

"Краткость - сестра таланта" (С)

И что? Хорошее задание. Сам пробовал решить? Какие-то идеи есть хотя бы? Как представляешь себе решение этой задачи? Что будет, если минимальный элемент содержится не в одной строке?

[nilson]

Сначала нашел минимальный элемент, затем нужно найти строку и потом ее удалить. Наверно так. Я не знаю как удалить строку с минимальным элементом

[Unconnected]

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

[nilson]

может быть. Но как это сделать???

[Unconnected]

Когда находишь минимальный элемент, нужно запомнить строку, в которой он находится. А потом в цикле переписать одну матрицу в другую с условием, что если переписываемый элемент находится в "ненужной" строке, то его не трогать. Подумай

[nilson]

program nomer_31;
const n=3; m=4; k=90;
Var A:array[1..n,1..m] of Integer;
i,j,min_el,min_str,v:Integer;
Begin
     randomize;
     for i:=1 to n do
     for j:=1 to m do
     A[i,j]:=random(k);
 For i:=1 to n   do  begin
 For j:=1 to m do
 write(A[i,j]:3);
 writeln;
 end;
 min_el:=A[1,1];min_str:=1;v:=1;
  For i:=1 to n do begin
  For j:=1 to m do
  If A[i,j]<min_el then begin min_el:=A[i,j];
  min_str:=i;
  end;
  end;
  For i:=1 to n do
  For j:=1 to m do begin
  If (i<>min_str) then write(A[j,i]:4) else writeln;  {???????}
  writeln;
  end;
  readln;
end.

Проблема в том, что в строке,обозначенной вопросами, мы выводим матрицу без минимальной строки, но программа выводит нужные строки не в виде матрицы, а в столбик....Помогите исправить, СРОЧНООООО

Ты тегами пользоваться научишься?

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

[volvo]

Вывод матрицы должен выглядеть вот так:

  For i:=1 to n do
    if i <> min_str then begin
      For j:=1 to m do write(A[i,j]:4);
      writeln;
    end;
  readln;

, а не то, что было у тебя...

[nilson]

СПАСИБО!!!!!!!