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

[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

[klem4]

FAQ : Массивы, матрицы, типичные задачи
+ поиск по форуму, или для тебя отдельно в тысяча первый раз решать ?

Вот например : http://forum.pascalnet.ru/index.php?s=&sh...indpost&p=50590

Сообщение отредактировано: klem4 - 28.02.2006 22:34