Удаление СТОЛБЦА матррицы..., модули, процедуры, функции .... Опции

[punkska]

Задача

Из матрицы С[1..4,1..5] удалить столбец , в котором наибольшее кол-во отрицательных элементов.

Для начала пара теор. вопросов по алгоритму
Необходимо
1. Ввод матрицы
2. Подсчёт кол-ва ОТРИЦАТЕЛЬНЫХ элементов в столбце
3. Составить массив, состоящий из подсчитаного количества отрицательных элементов по каждому столбцу
4. нахождение столбца для удаления....
5. удалить столбец с наибольшим кол. отрицательных элементов , получить новую матрицу...
6. вывод матрицы
вроде не забыл ни чего...

не хочу писать много процедур
хотел спросить - можно первые 3 пункта объединить???
вот мой выриант этого объединения

program lab2;
uses crt;

Const
 N=4; 
 M=5; 

type
Matrix = array[1..N,1..M] of integer; 

procedure EnterMatr(Var A,B:Matrix; N,M:integer);
 var
  i,j,k:integer;
   Begin
    k:=0;
    For i:=1 to N do 
    begin
    For j:=1 to M do
     begin
         write('A[',i,j,']= '); 
         readln(A[i,j]);
         if A[i,j]<0 then 
          Begin  k:=k+1; B[1,i]:=k;
          end;
     end; 
   end;
end 

как думаете, будут работать? B[1,i]:=k так надо?

Сообщение отредактировано: volvo - 2.11.2006 19:06

[volvo]

метод *подтягивания хвостика тут не прокатит*

... Нет, все-таки придется этот метод использовать. Здесь имеется в виду, что если массив B имеет вид: <1, 2, 3, 2, 3>, то придется удалять КАК 3-й, так и 5-ый столбец, но после 3-го идет 4-ый, который НЕ надо удалять!!!

Просто находишь максимум, как и находил, НО добавляешь еще одну функцию, индекс ближайшего максимального элемента (возвращающую индекс ближайшего справа макс. элемента), и производишь удаление (как и делал его) пока в массиве СПРАВА от текущего значения индекса еще есть максимальные значения... Это, кстати, еще удобнее для реализации через функциональные типы...