Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Матрицы / Задача 8 (создать новую матрицу без столбца с мин элементом)
.txt 8) найти минимальный эл в матрице запомнить этот слобец и записать все элементы в новую матрицу без этого столбца
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..15,1..10] of integer;
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok');
readln(n);
writeln('VVedite kolichestvo stolbzov');
readln(m);
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 m:integer;var b:mas);
var i,j,min,jmin:integer;
begin
min:=a[1,1];
jmin:=1;
for i:=1 to n do begin
for j:=1 to m do if a[i,j]<min then begin
min:=a[i,j];
jmin:=j;
end;
end;
writeln('Min el ',min,' stoit v stolbze ',jmin);
for i:=1 to n do
for j:=1 to m do b[i,j]:=a[i,j];
for i:=1 to n do begin
for j:=jmin to m-1 do begin
b[i,j]:=b[i,j+1];
end;
end;
m:=m-1;
end;
procedure VIVOD (b:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (b[i,j],' ');
writeln;
end;
end;
var A,B:mas;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m,B);
writeln('Poluchennaya matriza');
VIVOD(B,n,m);
readln;
end.
program matrizi;
{$APPTYPE CONSOLE}
uses
SysUtils;
type mas=array[1..15,1..10] of integer;
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok');
readln(n);
writeln('VVedite kolichestvo stolbzov');
readln(m);
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 m:integer;var b:mas);
var i,j,min,jmin:integer;
begin
min:=a[1,1];
jmin:=1;
for i:=1 to n do begin
for j:=1 to m do if a[i,j]<min then begin
min:=a[i,j];
jmin:=j;
end;
end;
writeln('Min el ',min,' stoit v stolbze ',jmin);
for i:=1 to n do
for j:=1 to m do b[i,j]:=a[i,j];
for i:=1 to n do begin
for j:=jmin to m-1 do begin
b[i,j]:=b[i,j+1];
end;
end;
m:=m-1;
end;
procedure VIVOD (b:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (b[i,j],' ');
writeln;
end;
end;
var A,B:mas;
n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m,B);
writeln('Poluchennaya matriza');
VIVOD(B,n,m);
readln;
end.
Соседние файлы в папке Матрицы