2 задачки по Паскалю, РАБОТА С МАТРИЦОЙ Опции

[Сергец]

Помогите, пожалуйста, кому не трудно, нужно 2 задачки по Паскалю решить:
1)Дана матрица размерности N на M. Найти столбец, в котором максимальный элемент минимален в соответствующей строке
2)Дана матрица размерности N на M. Вывести номера всех столбцов матрицы, не содержащих отрицательных элементов.


ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО ВСЕ, КТО ПОМОГ

[renesko1]

for i := 1 to n do      //для столбцов
  begin
  f := 0 ;
  for k := 1 to m do  //для сточек
     begin
     if matrix[k,i]  > 0 then inc(f) else      //если < 0 то f + 1
    break ;           // в противном случае можно не смотреть      
  end 
   if f = m then writeln(i);        //если колво элементов > 0 = кол во сторк то вывод на экран №столба
  end ;    

Вроде так если я что не нппутал с столбами и сточками

У меня n столбцов и m строчек.

Сообщение отредактировано: renesko1 - 30.04.2008 21:30

[klem4]

1-я задача - в поиск "следовые точки"

2-я:

for col := 1 to m do begin
    row := 1;
    while (row <= n) and (x[row, col] >= 0) do
      inc(row);
    if row > n then
      writeln(col);
  end;

[renesko1]

(klem4)
хороший код...

[Сергец]

Спасибо ОГРОМНОЕ! Буду разбираться.