Двумерные массивы
В данной действительной квадратной матрице А порядка n найти наименьший по модулю элемент.Получить квадратную матрицу В порядка n-1
путем выбрасывания из исходной матрицы строки и столбца, на пересечении которых расположен элемент с найденым значением.
За ранее огромное спасибо.
А как решать квадратные уравнения?
просто в дельфе есть готовый модуль работы с матрицами...
тебе нужно именно в пасе или на дельфе покатит???
просто в дельфе есть готовый модуль работы с матрицами...
Тогда это задание теряет смысл. Кстати, с чего ты взял, что вообще нужно делать на Паскале?
[COLOR=red]
В данной действительной квадратной матрице А порядка n найти наименьший по модулю элемент.Получить квадратную матрицу В порядка n-1
путем выбрасывания из исходной матрицы строки и столбца, на пересечении которых расположен элемент с найденым значением.
За ранее огромное спасибо.
Насколько я понял задачку, то получиться что то такое:
const nm=10;
var n,i,j,mi,mj,bi,bj:byte;
a:array[1..nm,1..nm] of real;
b:array[1..nm,1..nm] of real;
min:real;
begin
min:=maxint;
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
read(a[i,j]);
if min>a[i,j] then begin min:=a[i,j]; mi:=i; mj:=j; end;
end;
bi:=1;
for i:=1 to n do
begin
if i<>mi then
begin
bj:=1;
for j:=1 to n do
if j<>mj then begin b[bi,bj]:=a[i,j]; inc(bj); end;
inc(bi);
end;
end;
for i:=1 to n-1 do
begin
for j:=1 to n-1 do write(b[i,j]:0:2,' ');
writeln;
end;
end.
Только если с матрицей b не нужно ничего делать. то ее можно и не вычислять, а просто сразу вывести.