Задача:
Дана матрица размером 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.здесь скорей всего много ошибок помогите пожалуйста найти,в каком смысле много иногда я согласна с ответом программы а иногда нет,не могу найти закономерность.
буду спасибо за любые найденые ошибки,и не сложные объяснения.
![smile.gif](style_emoticons/default/smile.gif)