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

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

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


textual

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

  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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.231 из 5

Источник
Похожие ответы