Найти номер столбца, в котором нет отрицательных элементов - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

2.Дана целочисленная матрица размерности (n ×n). Найти номер столбца, в котором нет отрицательных элементов.

Решение задачи: «Найти номер столбца, в котором нет отрицательных элементов»

textual
Листинг программы
  index := 0;
  for j:=1 to m do
  begin
   k:=0;
   for i:=1 to n do
    if A[i,j]>0 then k:=k+1;
   if k=n then
   begin
     index:=j;
     writeln('Stolbec iz ne otricatelnyx elementov: ',index)
   end;
   end;
   writeln;
if index=0 then writeln('Stolbcov iz ne otricatelnyx elementov net');
 readln;
end.

Объяснение кода листинга программы

  1. Переменная index инициализируется значением 0.
  2. Затем происходит цикл for j=1 до m.
  3. Внутри цикла for i=1 до n происходит вложенный цикл.
  4. В течение этого вложенного цикла проверяется, что элемент A[i,j] больше 0.
  5. Если это условие выполняется, то переменная k увеличивается на 1.
  6. После окончания вложенного цикла проверяется, что значение переменной k равно n.
  7. Если это условие выполняется, то переменной index присваивается значение j.
  8. Затем выводится сообщение с номером столбца, в котором нет отрицательных элементов.
  9. Если значение переменной index равно 0, то выводится сообщение о том, что такого столбца не существует.
  10. В конце программы происходит вызов функции readln для чтения следующей строки ввода.

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы