Дан массив.нужно посчитать количество положительных и отрицательных элементов.

Question

Дан массив.нужно посчитать количество положительных и отрицательных элементов.

Comments

progRAM MASSIV;USES CRT;var K,K1, i,j,m,n:integer;x:array[1..50,1..50] of integer;beginread(n,m);for I:=1 to n dofor J:=1 to m dox[i,j]:=random(10);K:=0;for I:=1 to n dofor J:=1 to m doIF X[I,J]>0 THEN INC(K);for I:=1 to n dofor J:=1 to m doIF X[I,J]<0 THEN INC(K1);for I:=1 to n do beginfor J:=1 to m dowrite (x[i,j]:5);writeln;end;WRITELN(K);WRITELN(K1);end.

---

спасиииибо

---

пожалуйста, надеюсь, что поймешь

Answer 1

Методика решения:
Создаем цикл через фор..то   от 0 до длины массива -1
В  цикле ифом проверяем знак числа (>=0|<0)<br>Если больше то прибавляем единицу к переменной счетчику 
Если меньше то к другой переменной.
ПОСЛЕ цикла выводим обе переменные.

Comments

спасибо.но не можешь написать на языке паскаль?

---

нет. по этой методике элементарно написать программу на любом языке самостоятельно

---

эх

---

progRAM MASSIV;
USES CRT;
var K,K1, i,j,m,n:integer;
x:array[1..50,1..50] of integer;
begin
read(n,m);
for I:=1 to n do
for J:=1 to m do
x[i,j]:=random(10);
K:=0;
for I:=1 to n do
for J:=1 to m do
IF X[I,J]>0 THEN INC(K);
for I:=1 to n do
for J:=1 to m do
IF X[I,J]<0 THEN INC(K1);<br>for I:=1 to n do begin
for J:=1 to m do
write (x[i,j]:5);
writeln;
end;
WRITELN(K);
WRITELN(K1);
end. вот по этой методике

---

А зачем двумерный массив?)

---

сложновато

---

)я знаю

---

Можно и проще решить

Answer 2

Var a:array [1..10]of integer; I, j, plus,minus: integer; Begin Plus:=0; Minus:=0; For i:=1 to 10 do begin Read ( a [ I ] ); If a[ I ] >0 then plus :=plus+1; If a [ i]<0 then minus:=minus+1; End; Writeln (plus, minus); End.

Comments

При условии что ноль ни положительный ни отрицательный

---

спасибо)))

---

спасибо))))