Дана матрица размерности N ** M. Вывести номера всех столбцов матрицы, не содержащих...

Question

Дана матрица размерности N на M. Вывести номера всех столбцов матрицы, не содержащих отрицательных элементов. Помогите Ребята очень надо

Answer 1

Uses crt;
const N=4;
      M=6;
var a: array [1..n,1..m] of integer;
    x,y,k: integer;
begin
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     for y:=1 to m do begin
         k:=0;
         for x:=1 to n do
             if a[x,y]<0 then inc(k);<br>         if k=0 then writeln(y);
     end;
end.