Дан массив a(n). Найти среднее арифметическое положительных чисел. Пожалуйста напишите от cls и до конца- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DIM n AS INTEGER
DIM s AS SINGLE
RANDOMIZE TIMER
  
INPUT "Vvedite kol-vo indeksov massiva: ", n
  
DIM ar(1 TO n) AS SINGLE
  
s = 0
FOR i = 1 TO n
    ar(i) = INT(RND * 100 - 50)
    PRINT ar(i)
    IF ar(i) >= 0 THEN
        s = ar(i) + s
    END IF
NEXT i
  
PRINT
PRINT "Summa polojitel'nih: "; s
END

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment