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

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