PascalABC
1. Задан массив А(N). Получить из него массив В, состоящий из элементов массива А, значения которых больше 0.
2. Задан двухмерный массив целых чисел A[N,M]. Найти строки, содержащие нулевые элементы. Вывести исходный массив и индексы найденных строк.

1.var i,N,c: integer;var a: array of integer;var b: array of integer;beginc:=0;readln(N);Setlength(a,N);setlength(b,N);for i:=0 to a.Length-1 dobeginreadln(a[i]);if a[i] >0 thenbeginb[c]:=a[i];c:=c+1;end;end;Setlength(b,c);write(b);end.2.var N,M: integer;type a = array of array of integer;var matr: a;function CreateMatrix(N,M: integer): a;begin  SetLength(Result,N);  for var i:=0 to N-1 do    SetLength(Result[i],M);end;procedure FillMatrByRead(matr: a);begin  for var i:=0 to matr.Length-1 do  for var j:=0 to matr[0].Length-1 do    readln(matr[i,j]); end;procedure WriteMatrix(matr: a);begin  for var i := 0 to matr.Length-1 do  begin    for var j := 0 to matr[0].Length-1 do      write(matr[i,j]:3);    writeln;  end;end;procedure MatrixZero(matr: a);begin  for var i := 0 to matr.Length-1 do  begin    for var j := 0 to matr[0].Length-1 do      if (matr[i,j] = 0) then      write('matr','[',i,',',j,']');    writeln;  end; end;beginreadln(N,M);matr:= CreateMatrix(N,M);FillMatrByRead(matr);WriteMatrix(matr);MatrixZero(matr);end.