Дан массив размера N и целые числа K и L (1 < K <= L <= N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно - QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
INPUT n
RANDOMIZE TIMER
5 INPUT l
IF l<1 OR INT(l)<>l OR l >n THEN GOTO 5
10 INPUT k
IF k<1 OR INT(k)<>k OR k>l THEN GOTO 10
DIM a(n)
FOR i=1 TO n
a(i)=INT(RND(1)*50)+1
NEXT i
FOR i=1 TO k-1
s=s+a(i)
NEXT i
FOR i = l+1 TO n
s=s+a(i)
NEXT i
? s

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

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

Leave a Comment