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

Ответы 9

  • 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. вот по этой методике
  • А зачем двумерный массив?)
  • сложновато
  • При условии что ноль ни положительный ни отрицательный
  • )я знаю
    • Автор:

      kaden694
    • 6 лет назад
    • 0
  • Можно и проще решить
    • Автор:

      panther
    • 6 лет назад
    • 0
  • спасибо)))
  • спасибо))))
    • Автор:

      ringo85
    • 6 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years