Задача 9 (удалить столбец, содержащий мин элемент побочной диагонали)

Посмотреть архив целиком
9) дана квадратная матрица. Найти минимальный элемент побочной диагонали и удалить столбец его содержащий.

program matrizi;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..15,1..15] of integer;

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

procedure POISK (var a:mas;n:integer;var m:integer);
var i,j,min,jmin:integer;
begin

min:=a[1,n];
jmin:=n;
for i:=1 to n do begin
if a[i,n+1-i] min:=a[i,n+1-i];
jmin:=n+1-i;
end;
end;

writeln('min el ',min,' v ',jmin);

for i:=1 to n do begin
for j:=jmin to m-1 do begin
a[i,j]:=a[i,j+1];
end;
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],' ');
writeln;
end;
end;

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





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.