Перестановка столбцов Опции

[Определение столбца.............]

Помогите пожалуйста
Вот такая задача
Я нашел число нулевых элементов в каждом столбце(ch[j])
И теперь мне надо найти столбец в котором больше всего нулевых элементов.?

[VDmV]

Извиняюсь что вклиниваюсь, но я не могу на енто смотреть меня переполняют эмоции. Ещё раз извиняюсь.

Найти нул элементы в каждом столбце
Может так

Нет не так.
1) ch:integer; //Ладно, а вот это что ch[j]:=ch[j]+1. Ты бы попробовал этот код в деле. У тебя ошибка совместимомсти типов. И как сказал volvo - в этой процедуре нет смысла всё равно.
2) Я так понял тебе нужно определить координаты всех нулей и затолкать их массив. Проще простого:

Код

procedure Chislo(var a:matrix; var b:array [1..5] of integer {этот массив будет хранить номера строк, которые на пресечении с i столбцом значение =0.});
var
 i,j:integer;
begin
 for i:=1 to 5 do
   for j:=1 to 4 do
   if a[j,i]=0 then
     b[i]:=j;
end;

Вот и всё. Зачем тебе это надо - это другой вопрос.

Добавлено позже: Похоже последние 4 поста были посланы почти одновременно

Сообщение отредактировано: VDmV - 28.05.2005 21:37