Заполнить массив У элементами массива Х, находящимися после его максимального значения в Х — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite kol-vo elementov ", n
DIM x(n),y(n)
RANDOMIZE TIMER
PRINT "massiv x"
FOR i = 1 TO n
x(i) = INT(RND * 100)
PRINT x(i);
NEXT
PRINT
m=1
FOR i=1 TO n
IF x(i)>x(m) THEN m=i
NEXT
FOR i=m+1 TO n
k=k+1
y(k)=x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO k
PRINT y(i);
NEXT

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

Leave a Comment