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

[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 15:06

[punkska]

 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;


Procedure PrintMatr(A:Matrix; 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,B:Matrix;
Begin
EnterMatr(A,B,N,M);
PrintMatr(A,N,M);
PrintMatr(B,1,N);
readln
end.

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

и что-то мне кажеться что я не в стобцах а в строках ищу....