Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените всё его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массив.- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DIM a(10)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i=1 TO 10
a(i)=INT(RND*20)-10
PRINT a(i);
NEXT
PRINT
max=-1E+38
FOR i=1 TO 10
IF a(i)<0 AND a(i)>max THEN max=a(i)
NEXT
FOR i=1 TO 10
IF a(i)>0 THEN a(i)=max
NEXT
PRINT "novyj massiv"
FOR i=1 TO 10
PRINT a(i);
NEXT

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

Leave a Comment