Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 25.04.2012
Сообщений: 9

Верно ли, что сумма элементов столбца массива с известным номером кратна заданному числу

25.04.2012, 19:52. Показов 1322. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан двумерный массив целых чисел. Составить программу, определяющую,верно ли,что сумма элементов столбца массива с известным номером кратна заданному числу
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.04.2012, 19:52
Ответы с готовыми решениями:

Определить, верно ли, что сумма элементов столбца массива с известным номером кратна заданному числу
дан двумерный массив целых чисел . Составить программу , определяющую, верно ли ,что сумма элементов столбца массива с известным номером...

Кратна ли заданному числу сумма элементов столбца массива
Дан двумерный массив. Составить программу , определяющую, верно ли, что сумма элементов столбца массива с известным номером кратна ...

Верно ли, что сумма элементов строки массива с известным номером оканчивается цифрой 0
Дан двумерный массив целых чисел.Составить программу, определяюшую, верно ли , что сумма элементов строки массива с известным номером...

2
 Аватар для Lotosin
28 / 28 / 13
Регистрация: 24.03.2012
Сообщений: 43
25.04.2012, 20:45
Лучший ответ Сообщение было отмечено 1992 как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS : RANDOMIZE TIMER
INPUT "Kol-vo ctrok"; n
INPUT "Kol-vo ctolbcov"; m
DIM a(n, m)
INPUT "Введите число кратности, или как там его"; x
PRINT "IcxodnbIi massiv"
FOR j = 1 TO n
FOR k = 1 TO m
a(j, k) = INT(RND(1) * 100 - 30)
PRINT a(j, k);
NEXT k
PRINT
NEXT j
1 INPUT "BbIbirete ctolbec"; o
IF o > m THEN GOTO 1
m = 0
FOR j = 1 TO n
FOR k = o TO o
m = m + a(j, k)
NEXT k
NEXT j
IF s / x = INT(s / x) THEN PRINT "Berno" ELSE PRINT "He verno"
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
24.06.2016, 14:52
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
RANDOMIZE TIMER
OPTION BASE 1
n = 4: m = 8
DIM a(n, m) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   a(i, j) = 40 * RND - 20
   PRINT USING "####"; a(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
INPUT "CHISLO = "; ch
DO
   INPUT "STOLBEC = "; s
LOOP UNTIL s <= m
 
FOR i = 1 TO n
   sum = sum + a(i, s)
NEXT i
 
IF sum MOD ch = 0 THEN PRINT "YES" ELSE PRINT "NO"
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.06.2016, 14:52
Помогаю со студенческими работами здесь

Верно ли, что сумма элементов строки массива с известным номером оканчивается цифрой 0
Дан двумерный массив целых чисел. Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным номером...

Верно ли, что сумма элементов строки массива с известным номером превышает заданное число
Дан двумерный массив. Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным номером превышает...

Выяснить, верно ли, что сумма элементов строки массива с известным номером оканчивается цифрой 0
Дан двумерный массив целых чисел. а) Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным номером...

Определить, верно ли, что сумма элементов строки массива с известным номером оканчивается цифрой 0
Дан двумерный массив целых чисел. а) Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным...

Верно ли, что сумма элементов строки массива с известным номером превышает заданное число?
Дан двумерный массив. б) Составить программу, определяющую, верно ли, что сумма элементов строки массива с известным номером превышает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru