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 ( Скачать )