Дана матрица размера M × N. Продублировать столбец матрицы, содержащий ее минимальный элемент.

@Denis1991Fox · Регистрация: 22.04.2010

Студворк — интернет-сервис помощи студентам

Друзья, прошу вас, хелп ми, мне еще около 40 подобных решать, подскажите как это делается...
Matrix71. Дана матрица размера M × N. Продублировать столбец матрицы, содержащий ее минимальный элемент.

@Snoopy · 22.04.2010, 21:24

Pascal

uses crt;
const n=5;
      m=4;
var a:array[1..n,1..m] of integer;
    i,j,min,jmin:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
min:=a[1,1];
jmin:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]<min then
   begin
    min:=a[i,j];
    jmin:=j;
   end;
for i:=1 to n do
 Write(a[i,jmin],'  ');
Readln;
end.

@Puporev · 22.04.2010, 21:40

Snoopy, Продублировать столбец это значит вставить его в матрицу, количество столбцов увеличится на 1.

@Snoopy · 23.04.2010, 00:11

Puporev, ясно, я думал просто вывести его....

Добавлено через 2 часа 25 минут
вот исправленный вариант...

Pascal

uses crt;
const n=5;
      m=4;
var a:array[1..n,1..m+1] of integer;
    i,j,min,jmin:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
min:=a[1,1];
jmin:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]<min then
   begin
    min:=a[i,j];
    jmin:=j;
   end;
Writeln('Min ',min);
for i:=1 to n do
 for j:=m+1 downto jmin+1 do
  a[i,j]:=a[i,j-1];
  for i:=1 to n do
   a[i,jmin]:=a[i,jmin+1];
for i:=1 to n do
 begin
  for j:=1 to m+1 do
   Write(a[i,j]:4);
  Writeln;
 end;
Readln;
end.

@Denis1991Fox 11 / 5 / 0 Регистрация: 22.04.2010 Сообщений: 55
		1
	Дана матрица размера M × N. Продублировать столбец матрицы, содержащий ее минимальный элемент. 22.04.2010, 21:17. Показов 3679. Ответов 3 Метки нет (Все метки) Друзья, прошу вас, хелп ми, мне еще около 40 подобных решать, подскажите как это делается... Matrix71. Дана матрица размера M × N. Продублировать столбец матрицы, содержащий ее минимальный элемент. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	22.04.2010, 21:40	3
	Snoopy, Продублировать столбец это значит вставить его в матрицу, количество столбцов увеличится на 1. 2

	23.04.2010, 00:11

Опции темы