1 2 3 4 5 6 7 8 9 10 11 12 | cls input "razmernost"; n dim a(n) randomize timer for i = 1 to n a(i)=rnd( 1 )* 50 next i input "nachalo"; k input "kolichestvo"; m for i = k to k+m a(i)=a(i+m) next i |
Тестирование выполнено в программе QB64 ( Скачать )