Question

Elaborar um programa em linguagem QBASIC que capture 10 números a partir do usuário e calcule a média destes números. Obs.: O programa não deve aceitar números negativos.

Answer 1

soma = 0
FOR i = 1 TO (10) STEP 1
  PRINT i
  INPUT "Informe um número maior ou igual a 0"; numero
  IF numero >=0 THEN
     soma = soma + numero
  END IF
NEXT
PRINT "Soma = ",soma
PRINT "media = ", soma/10
END