Question

[Delphi] - 99
Заданы матрица порядка n и число k. разделить элементы k-й строки на диагональный элемент, расположенный в этой строке.

Answer 1

{$APPTYPE CONSOLE}
Var
   Mass:array[1..10000,1..10000] of real;
   n,k,i,j:integer;
Begin
Randomize;
Write('n = ');ReadLn(n);
For i:= 1 to n do
    Begin
    For j:= 1 to n do
        Begin
        Mass[i,j]:=random*21-10;
        Write(Mass[i,j]:5:2,' ')
        End;
    WriteLn
    End;
Write('k = ');ReadLn(k);
For j:= 1 to n do
    Mass[k,j]:=Mass[k,j]/Mass[k,k];
For i:= 1 to n do
    Begin
    For j:= 1 to n do
        Write(Mass[i,j]:5:2,' ');
    WriteLn
    End;
ReadLn
End.

Answer 2

А можете сделать в графическом виде, т.е форму используя?