Для каждой строки напечатать номера столбцов, содержащих положительные элементы

[wlll]

Для каждой строки напечатать номера столбцов, содержащих положительные элементы

[Ybn2]

Сообщение от wlll

Для каждой строки напечатать номера столбцов, содержащих положительные элементы

А можно по конкретней, например какой язык, и что за матрица?

[wlll]

pascal, матрица n x m
помогите пожалуйста

[Ybn2]

Проверяй:

program Project1;
const n=5; m=5;
Var
  i,j:integer;
  Mas:array [1..n,1..m] of integer;
Begin
   For i:=1 to n do
     For j:=1 to m do
       Begin
         Write ('Введите Mas[',i,',',j,']: ');
         ReadLn (Mas[i,j]);
       end;
  {Вывод матрицы}
  WriteLn;
   For i:=1 to n do
    Begin
       For j:=1 to m do
          Write (Mas[i,j],' ');
       WriteLn;
    end;
    WriteLn;
   {Поиск положительных элементов}
    For i:=1 to n do
      Begin
         WriteLn ('Номера столбцов где элементы >0 в строке ',i);
         For j:=1 to m do
            If Mas[i,j]>0 then Write (' ',j);
         WriteLn;
      end;
  ReadLn;
end.