Удалить стобцы массива, где есть мин элмент

@GFS · Регистрация: 07.11.2009

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

Нужно удалить стобцы массива, где есть мин элемент, и вывести полученный массив без этих столбцов.
Ввод массива можно не писать. Прошу помочь

Добавлено через 13 минут
загляните в тему пож-та!))

Добавлено через 25 минут
мин элемент искать не нужно( сам найду

), напишите плиз алгоритм на паскале удаления столбцов по заданию

@кот Бегемот · 14.12.2009, 22:07

Сообщение от GFS

Нужно удалить стобцы массива, где есть мин элемент, и вывести полученный массив без этих столбцов.
Ввод массива можно не писать. Прошу помочь

Pascal

var
a,c:array[1..100,1..100]of integer;
b:array[1..100]of integer;
m,n,i,j,t,min:integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to m  do
begin
 for j:=1 to n do
  write(a[i,j],' ');
  writeln;
end;
min:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
for j:=1 to n do
for i:=1 to m do
if a[i,j]=min then b[j]:=1;
{формируем новый массив по столбцам}
for j:=1 to n do
if b[j]=0 then begin
inc (t);
for i:=1 to m do
c[i,t]:=a[i,j];
end;
writeln;
for i:=1 to m do
begin
for j:=1 to t do
write(c[i,j],' ');
writeln;
end;

@GFS · 14.12.2009, 22:14 **[ТС]**

спс огромное)

@GFS 18 / 18 / 8 Регистрация: 07.11.2009 Сообщений: 118
		1
	Удалить стобцы массива, где есть мин элмент 14.12.2009, 21:46. Показов 1055. Ответов 2 Метки нет (Все метки) Нужно удалить стобцы массива, где есть мин элемент, и вывести полученный массив без этих столбцов. Ввод массива можно не писать. Прошу помочь Добавлено через 13 минут загляните в тему пож-та!)) Добавлено через 25 минут мин элемент искать не нужно( сам найду ), напишите плиз алгоритм на паскале удаления столбцов по заданию 0

@GFS 18 / 18 / 8 Регистрация: 07.11.2009 Сообщений: 118
	14.12.2009, 22:14 [ТС]	3
	спс огромное) 0

Удалить стобцы массива, где есть мин элмент

Решение