Сырой массив Опции

[spektr]

у меня задача почти сделана только возникают вопросы.

Задача:

Дана матрица размером N на M,вывести количество строк в которых число положительных элементов больше числа отрицательных элементов.

РЕшение:

PROGRAM bolse;
{ўлў®¤ бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ўЎ®«миҐ зЁб«  ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў}
uses crt;
VAR
  A: array [1..100,1..100] of integer;
  i,j,n,m,otr,pol,sum  :  integer;
BEGIN
clrscr;
  WriteLn ('Їа®Ја ¬¬  ўлў®¤  бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«м­ле н«Ґ¬Ґ­в®ўЎ®«миҐ зЁб«  ®ваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў');
  WriteLn ('введите размерность массива i,j');
  ReadLn (n,m);
  pol:=0;
  otr:=0;
  sum:=0;
    FOR i:=1 to n DO
    FOR j:=1 to m do
      Begin
        WriteLn ('заполните массив');
        readLn (A[i,j]);
      End;
        FOR i:=1 to n DO
          BEGIN
            FOR j:=1 to m DO
              BEGIN
                IF A[i,j]>0
                  Then
                    pol:=pol+1
                  Else
                    otr:=otr+1;
              end;
          end;
        For i:=1 to n do
         BEGIN
           If pol>otr
             then
               sum:=sum+1;
         end;
  WriteLn ('количество строк',sum);
  ReadLn
End.

Вопросы:

1.как сделать так чтобы ноль не считался ни за положительное ни за отрицательное а просто опускался.
2.как сделать так чтобы в блокноте буквы кирилицы не становились таробарщиной
3.здесь скорей всего много ошибок помогите пожалуйста найти,в каком смысле много иногда я согласна с ответом программы а иногда нет,не могу найти закономерность.


буду спасибо за любые найденые ошибки,и не сложные объяснения.

[мисс_граффити]

1 и 3 твои вопросы:

PROGRAM bolse;
{ўлў®¤ бва®ЄЁ ў Є®в®а®© Ї®«®¦ЁвҐ«мле н«Ґ¬Ґв®ўЎ®«миҐ зЁб«  ®ваЁж ⥫мле н«Ґ¬Ґв®ў}
uses crt;
VAR
  A: array [1..100,1..100] of integer;
  i,j,n,m,otr,pol,sum  :  integer;
BEGIN
  clrscr;
  WriteLn ('programa - vyvod....');
  WriteLn ('vvedite razmernost matricy i,j');
  ReadLn (n,m);
  pol:=0;
  otr:=0;
  sum:=0;
  FOR i:=1 to n DO
    FOR j:=1 to m do
      Begin
        WriteLn ('element ',i,' ',j,' raven');
        readLn (A[i,j]);
      End;
  FOR i:=1 to n DO
    BEGIN
    FOR j:=1 to m DO
      BEGIN
      IF A[i,j]>0 Then
        pol:=pol+1;
      if A[i,j]<0 then {чтобы не считал 0, вместо полного условного оператора сделали 2 неполных}
        otr:=otr+1;
      end;
    If pol>otr then {посмотри внимательно на границы цикла... ты анализировала только инфу по последней строке - если она подходила, то ты считала, что подходят все. если не подходила - то все отвергала}
     sum:=sum+1;
    end;

  clrscr;
  for i:=1 to n do
    begin
    for j:=1 to n do
      write(A[i,j],' ');
    writeln;
    end;
  WriteLn ('kolvo strok ',sum);
  ReadLn
End.