Дан двумерный массив 10х10, содержащий числа в промежутке от -10 до

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var a:=MatrixRandom(10,10,-10,10);
  var sp:=0; var sn:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 9 do begin
      Write(a[i,j]:4);
      if a[i,j]gt;0 then Inc(sp)
      else
        if a[i,j]lt;0 then Inc(sn)
      end;
    Writeln
    end;
  Writeln(Положительных ,sp,, отрицательных ,sn)
end.