Задана матрица порядка n и число к. Разделить элементы k-й строки на диагональный элемент, расположенный в этой строке. (программа Паскаль)
Вопрос посетителя
Задана матрица порядка n и число к. Разделить элементы k-й строки на диагональный элемент, расположенный в этой строке.
Ответ эксперта
uses crt;
var
a : array[1..100,1..100] of real;
k,i,j,n : integer;
begin
clrscr;
randomize;
write(‘vvedite razmer n’);
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3:0);
writeln;
end;
repeat
write(‘vvedite k от 1 до ‘,n);
readln (k);
until k in [1..n];
for j:=1 to n do
a[k,j]:=a[k,j]/a[k,k];
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3:0);
writeln;
end;
readkey;
end.
