Дано n число, действительные числа a1,a2,....an. Верно ли, что отрицательных чисел в последовательности больше, чем положительных

Категория: Basic
2011-10-13 16:20:04
code: #basic
poloj=0
otric=0
FOR i=1 TO n
  IF a(i) > 0 THEN
    poloj = poloj + 1
  END IF
  IF a(i) < 0 THEN
    otric = otric + 1
  END IF
NEXT i
 
IF poloj < otric THEN
  PRINT "Verno"
ELSE
  PRINT "Vran'e"
END IF

автор: Toxa33rus

Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты, последовательность, qbasic, положительные элементы, отрицательные элементы, действительные числа