Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2010, 22:25   #1
!amd!
 
Регистрация: 26.05.2010
Сообщений: 3
Вопрос QBasic двумерные массивы

Помогите пожалуйста решить задачу (и блок-схему) в QBasic. завтра зачет. icq 625169399

Матрицу R(9,8) заполнить случайными целыми числами в диапазоне (-20; 20). Образовать два одномерных массива A(N) и B(M). В массив А поместить все положительные элементы матрицы R, в массив B все отрицательные. Массивы А и В заполнить плотно. Вывести R, А, В.

DIM R(9,8), A(N), B(M)
PRINT "MATRICA R"
FOR I = 1 TO 9
FOR J = 1 TO 8
R(I,J) = INT(40*RND-20)
PRINT R(I,J);
IF R(I,J)>0 THEN A=R(I,J)
PRINT "MASSIV A"
IF R(I,J)<0 THEN B=R(I,J)
PRINT "MASSIV B"
!amd! вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[QBasic|Pascal] двумерные массивы PBJack Помощь студентам 5 06.12.2011 20:39
Двумерные массивы в QBasic !amd! Помощь студентам 0 27.05.2010 20:43
QBasic двумерные массивы !amd! Помощь студентам 0 26.05.2010 21:16
Процедуры и функции, двумерные массивы. (QBasic) poad_hok Помощь студентам 2 27.05.2009 18:59