Дан одномерный массив чисел. Найти среднее арифметическое значение тех из них, которые лежат за пределами заданного диапазона [a,b]- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "vvedite kolichestvo elementov N ",n
PRINT "vvedite granicy diapazona"
INPUT"a=",a
INPUT"b=",b
IF a>b THEN SWAP a,b
DIM c(n)
FOR i=1 TO N
INPUT "vvedite element massiva",c(i)
NEXT
PRINT "massiv"
FOR i=1 TO N
PRINT c(i);
NEXT
PRINT
FOR i=1 TO n
IF c(i)<a OR c(i)>b THEN s=s+c(i):k=k+1
NEXT
PRINT"srednee arifmet.="s/k

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

Leave a Comment