Синформатикой, решить у 1, 2 и 3-го номер 7

// 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]> 0 then inc(sp)           else               if a[i,j]< 0 then inc(sn)           end;       writeln       end;   writeln('положительных ',sp,', отрицательных ',sn) end. пример   -2    4    5  10    3    7  -8  -1  -5  -9   -2    6  -3    8  10    9  -8    3    9    9     2  10    3    5  10    1  -9    4  -7    3     9    1  -3  -5    7    5    2    0  -7    3     2    1  10  -8  -8    6  -8  -3  -5    0   -2 -10  -7    9  -9  -1  -9  10 -10  -8     6  -1  -4    3  -7    7  -1  -8 -10  -5   -3    2    0  -5  -4 -10 -10    0    3  -7   -1    5  -2    4  -6    9  -3  -1  -7  -2     3    2    0 -10    8  -7  -5  -3  10  -5 положительных 44, отрицательных 51