01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / Задача 14 (убрать столбец с минималным элементом на побочной диагонали)

14) Задана квадратная матрица А(n,n) n<=10. вещественных чисел.Написать процедуру новой матрицы путем вычеркивания солбца, где расположен минимальный элемент ПОБОЧНОЙ диагонали исходной матрицы.считать элемент единственный. В основной пограмме распечатать исходную и полученную матрицу.


program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..10,1..10] of double;

procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
repeat
repeat
writeln('VVedite kolichestvo strok');
readln(n);
until n<=10;
repeat
writeln('VVedite kolichestvo stolbzov');
readln(m);
until m<=10;
until m=n;
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;

procedure POISK (a:mas;n:integer;var b:mas;var m:integer);
var i,j,jmin:integer;
min:double;
begin
min:=a[1,m];
jmin:=m;
for i:=1 to n do if a[i,m+1-i]<min then begin
min:=a[i,m+1-i];
jmin:=m+1-i;
end;
for i:=1 to n do
for j:=1 to m do b[i,j]:=a[i,j];

for i:=1 to n do
for j:=jmin to m-1 do begin b[i,j]:=b[i,j+1];
end;
m:=m-1;
end;


procedure VIVOD (a:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (a[i,j]:1:1,' ');
writeln;
end;
end;

var A,B:mas;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,B,m);
writeln('Isxodnaia matriza');
VIVOD(A,n,n);
writeln('Poluchennaya matriza');
VIVOD(B,n,m);
readln;
end.