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

Ваша программа не запускается в Делфи ---------------------------Error---------------------------Runtime error 105 at 00403FE0---------------------------ОК ---------------------------

Добавьте в самом начале {$APPTYPE CONSOLE}

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

Можете сделать в графическом виде, с формой?

Могу, но сейчас нет возможности этим заниматься.

{$APPTYPE CONSOLE}Var   Mass:array[1..10000,1..10000] of real;   n,k,i,j:integer;BeginRandomize;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;ReadLnEnd.