Дана матрица A из n строк и m столбцов. Матрицу A необходимо вводить и выводить построчно. Матрица A имеет заданный размер 5*5. Определить число отрицательных и число положительных элементов в каждой строке матрицы.
Ну вообще-то отрицательный - это < 0, положительный, разумеется > 0. Сравнить поэлементно и посчитать количество тех и других, я думаю, не такая большая проблема, да? Цикл в цикле. Тока почему n строк и m столбцов, если 5*5? Поддерживаю также проект сообщество молодых сисадминов
For i := 1 to m do begin pol := 0; otr := 0; For j := 1 to n do begin if (a[i,j] > 0) then inc(pol) else if (a[i,j]) < 0) then inc(otr); end; Writeln('Положительных: ',pol,#13#10,'Отрицательных: ',otr) end;
