нумерация элементов, а соответственно и строк в массиве начинается с 0
программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.
так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100
var
n, k : integer;
a : real;
var d : array[,] of real;
begin
write('введите размер матрицы n=');
readln(n);
d := new real[n,n];
for var i := 0 to n-1 do begin
for var j := 0 to n-1 do d[i,j] := random(101);
end;
write('введите номер строки k=');
readln(k);
a := d[k,k];
for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
нумерация элементов, а соответственно и строк в массиве начинается с 0
программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.
так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100
var
n, k : integer;
a : real;
var d : array[,] of real;
begin
write('введите размер матрицы n=');
readln(n);
d := new real[n,n];
for var i := 0 to n-1 do begin
for var j := 0 to n-1 do d[i,j] := random(101);
end;
write('введите номер строки k=');
readln(k);
a := d[k,k];
for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;
end.