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

[nilson]

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

[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