В массиве y(n) найти максимальный элемент и заменить его и все элементы, которые равняются максимальному, нулем — Basic(Бейсик)

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

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

Leave a Comment