1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 10 REM20 CLS30 DIM A(30)40 FOR i = 1 TO 30 50 PRINT "Vvedite "; i; " element massiva" 60 INPUT A(i)70 NEXT i80 FOR i = 1 TO 30 90 IF A(i) < 0 THEN k = k + 1: m = m + ABS(A(i)) 100 IF A(i) > 0 THEN t = t + 1: s = s + ABS(A(i))110 NEXT i120 PRINT "Summa poloj elementov="; s; "Kolvo polojitelniyh elementov"; t130 PRINT "Summa otricatelnih elementov"; m; "Kolvo otricatelnih elementov"; k140 END |
Тестирование выполнено в программе QB64 ( Скачать )