Сформировать массив вручную - QBasic

Формулировка задачи:

Народ, помогите. Бейсик совсем не помню. Больше C# нужен, но возникла потребность писать в бейсике. Есть задачка и в ней заданы одномерные массивы А = {2; 6; 0; 1,5; -7; -1,5} и В = {0; 0,5; 16; -7; -0,4; 4; 5; -2; 3}. Как их задать в бейсике вручную и с ними работать? Сделал так чтоб они рандомно задавались. вот код

                    Листинг программы
                
 
                        
                          
                    
DIM x(1 TO 15) AS INTEGER
DIM p1 AS DOUBLE, p2 AS DOUBLE
DIM i AS INTEGER
CLS
RANDOMIZE TIMER
p1 = 0
p2 = 0
PRINT "dan massiv A"
FOR i = 1 TO 6
x(i) = INT(RND * 21) - 10
PRINT USING "####"; x(i);
IF x(i) > 0 THEN p1 = (p1 - (p1 = 0)) * x(i)
NEXT
PRINT
PRINT USING "poloz ###############"; p1
PRINT
 
PRINT "dan massiv B"
FOR i = 1 TO 6
x(i) = INT(RND * 21) - 10
PRINT USING "####"; x(i);
IF x(i) < 0 THEN p2 = (p2 - (p2 = 0)) * x(i)
NEXT
PRINT
PRINT USING "otric ###############"; p2

Решение задачи: «Сформировать массив вручную»

textual
                            Листинг программы 
                        
FOR i=1 TO n
NEXT i

Оцени полезность:

10 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы