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);
         if k=0 then writeln(y);
     end;
end.