{* Задача333 *}

REM basic

' Из одномерного массива размера 56, удалить все элементы с элемента № k1 по № k2(С проверкой коректности k1 и k2.


CLS
Dim A(56)
RANDOMIZE TIMER
 
PRINT "Исходный массив: "
 
For I = 1 To 56
  A(I) = INT(RND * 100)
  PRINT A(I);
Next I
PRINT ""
 
10 :
INPUT "Введите k1: ", K1
INPUT "Введите k2: ", K2
If K1 = K2 Or K2 > 56 Or K1 > 56 Or K2 < 0 Or K1 < 0 Or K1 > K2 Then
  PRINT "k1 должно быть меньше k2. k1 и k2 должны быть больше 0 и меньше 56 "
  GoTo 10
End If
 
For I = 1 To 55 - K2
  A(K1 + I) = A(K2 + I)
Next I
 
PRINT "Полученный массив: "
 
For I = 1 To 56 - (K2 - K1)
  PRINT A(I);
Next I
End