Программа

N=4 : M=3          'Определение размерности массивов
DIM P(N,M)         'Исходный массив
DIM T%(N,M)        'Получаемый массив

'Ввод исходного массива:
CLS                'Очистка экрана
FOR i%=1 TO N      'Цикл ввода массива
  FOR j%=1 TO M      'Цикл ввода строки
    PRINT "Введите элемент P[";i%;",";j%;"] ";
                                     'Вывод приглашения ввести элемент массива
    INPUT ,P[i%,j%]                   'Ввод элемента массива
  NEXT j%
NEXT i%
CLS                   'Очистка экрана
'Вывод исходного массива:
PRINT "Исходный массив:"         'Вывод заголовка
FOR i%=1 TO N                    'Цикл вывода массива
  FOR j%=1 TO M                    'Цикл вывода строки
    PRINT USING "  ###.##";P[i%,j%];         'Вывод элемента массива
  NEXT j%
  PRINT                            'Пропуск строки
NEXT i%
PRINT                 'Пропуск строки
'Обработка массива:
FOR i%=1 TO N      'Цикл обработки массива
  FOR j%=1 TO M      'Цикл обработки строки
    IF P[i%,j%]>0 THEN    'Определение элемента массива
                    T%[i%,j%]=1
                  ELSEIF P[i%,j%]=0 THEN
                                      T%[i%,j%]=0
                                    ELSE
                                      T%[i%,j%]=-1
    END IF
  NEXT j%
NEXT i%
'Вывод полученного массива:
PRINT "Полученный массив:"         'Вывод заголовка
FOR i%=1 TO N                    'Цикл вывода массива
  FOR j%=1 TO M                    'Цикл вывода строки
    PRINT USING "  ##";T%[i%,j%];         'Вывод элемента массива
  NEXT j%
  PRINT                            'Пропуск строки
NEXT i%
PRINT                 'Пропуск строки
'Вычисление KP:
KP%=0                'Обнуление суммы
FOR i%=1 TO N        'Цикл обработки массивов
  FOR j%=1 TO M      'Цикл обработки строки
    IF P[i%,j%]>0 THEN KP%=KP%+1    'Набор числа положительных элементов
  NEXT j%
NEXT i%
PRINT "KP=";KP%       'Вывод KP
END