Двумерный массив

@Ramzan · Регистрация: 12.11.2009

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста!
Дан двумерный массив размером n*m, заполненный случайными числами. Определить, сколько в данном массиве строк, в которых равное количество положительных и отрицательных элементов.
У меня проблема со второй частью задачи. Никак не получается определить строки.

@кот Бегемот · 21.11.2009, 19:40

на QBasic пойдёт? Там ведь команды практически одинаковые?
если не пойдёт, при проходе по строке в цикле сначала обнуляем 2 счётчика, пишем 2 условия подсчёта в каждой строке + и - элементов, после окончания прохода сравниваем счетчики и добавляем 1 на третий счетчик, если 1 и 2 равны.

@Ramzan · 21.11.2009, 20:06 **[ТС]**

Сообщение от alexevt

на QBasic пойдёт? Там ведь команды практически одинаковые?
если не пойдёт, при проходе по строке в цикле сначала обнуляем 2 счётчика, пишем 2 условия подсчёта в каждой строке + и - элементов, после окончания прохода сравниваем счетчики и добавляем 1 на третий счетчик, если 1 и 2 равны.

Самое интересное, я не знаю как задать цикл что бы он просматривал в отдельности каждую строчку...
я пробовал написать для всего массива, но получилась белеберда((( Я просто 2ую неделю знаком с VB, это моя первая контрольная...И, как обнулить счетчики???

@кот Бегемот · 21.11.2009, 22:44

Сообщение от Ramzan

Помогите пожалуйста!
Дан двумерный массив размером n*m, заполненный случайными числами. Определить, сколько в данном массиве строк, в которых равное количество положительных и отрицательных элементов.
У меня проблема со второй частью задачи. Никак не получается определить строки.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
INPUT n
INPUT m
RANDOMIZE TIMER
 DIM a(n, m)
   FOR i = 1 TO n
       FOR j = 1 TO m
         a(i, j) = INT(RND * 10) - 5 'заполняем массив случайными числами'
       NEXT
   NEXT
 
 FOR i = 1 TO n
   FOR j = 1 TO m
      PRINT a(i, j);          'выводим его на экран'
   NEXT
   PRINT
 NEXT
 
FOR i = 1 TO n
 s1 = 0 'обнуляем счетчики'
 s2 = 0
  FOR j = 1 TO m
         IF a(i, j) > 0 THEN s1 = s1 + 1  'считаем положительные'
         IF a(i, j) < 0 THEN s2 = s2 + 1   ' и отрицательные элементы в строке'
NEXT
IF s1 = s2 THEN s3 = s3 + 1    'если их поровну, добавляем на счетчик 1'
NEXT
PRINT s3       'выводим результат'

@BasicMan · 21.11.2009, 22:48

для ВБ вместо PRINT лучше msgbox использовать

Не по теме:

а так все супер, так держать, спасибо за помощь :bravo:

Добавлено через 1 минуту
и строчки 1 и 2 так записать

Visual Basic
1
2
n=INPUTbox("BBEDITE n")
m=INPUTbox("BBEDITE m")

а строчка 15 не нужна

@кот Бегемот · 21.11.2009, 22:49

Я в VB полный ноль

@BasicMan · 21.11.2009, 22:50

Сообщение от alexevt

Я в VB полный ноль

вот заодно и научишься

@Ramzan · 21.11.2009, 23:04 **[ТС]**

Спасибо за помощь!!!Все работает

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Ramzan 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 3

	Двумерный массив 21.11.2009, 18:38. Показов 1748. Ответов 7 Метки нет (Все метки) Помогите пожалуйста! Дан двумерный массив размером n*m, заполненный случайными числами. Определить, сколько в данном массиве строк, в которых равное количество положительных и отрицательных элементов. У меня проблема со второй частью задачи. Никак не получается определить строки. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	21.11.2009, 19:40
	на QBasic пойдёт? Там ведь команды практически одинаковые? если не пойдёт, при проходе по строке в цикле сначала обнуляем 2 счётчика, пишем 2 условия подсчёта в каждой строке + и - элементов, после окончания прохода сравниваем счетчики и добавляем 1 на третий счетчик, если 1 и 2 равны. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	21.11.2009, 22:49
	Я в VB полный ноль 0

@Ramzan 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 3
	21.11.2009, 23:04 [ТС]
	Спасибо за помощь!!!Все работает 0