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

Найти количество элементов массива до первого элемента равного 111

23.12.2010, 19:20. Показов 1042. Ответов 1
Метки нет (Все метки)

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

Найти количество элементов массива после первого элемента, равного 15
№1 Дан массив из 250 чисел. Найти количество элементов массива,начиная с первого числа,равного 15. №2 В массиве А(2;2) увеличить...

Найти сумму элементов массива до первого элемента, равного 39
Где ошибка в этом задании , есть другое решение ? Дан массив из 13 элементов . Найти сумму элементов массива до первого элемента ...

Найти количество элементов массива после последнего элемента, равного 19
Дан массив из 13 элементов. Найти количество эл массива после последнего элемента,равного 19

1
180 / 179 / 163
Регистрация: 30.04.2010
Сообщений: 260
27.12.2010, 09:54
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1

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
n=10
DIM a(n)
FOR i=1 TO n
 PRINT "a(";i;")=";
 INPUT a(i)
NEXT i
PRINT "Massiv"
FOR i=1 TO n
 PRINT a(i);
NEXT i
PRINT
k=0
FOR i=1 TO n
 IF a(i)=111 THEN EXIT FOR
 k=k+1
NEXT i
IF k= n THEN
 PRINT "V massive net elementa=111"
ELSE
 PRINT "Do pervogo elementa=111 kolvo elementov=";k
END IF
2.

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
n=3:m=2
DIM a(n,m)
RANDOMIZE TIMER
FOR i=1 TO n
 FOR j=1 TO m
  a(i,j)=INT(RND*101)-50
 NEXT j
NEXT i
PRINT "Matrica"
FOR i=1 TO n
 FOR j=1 TO m
  PRINT a(i,j);
 NEXT j
 PRINT
NEXT i 
PRINT 
s=0
FOR i=1 TO n
 s=s+a(i,2)
NEXT i
PRINT "Summa vtorogo stolbca=";s
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.12.2010, 09:54
Помогаю со студенческими работами здесь

Найти количество элементов массива, после последнего элемента, равного 17
Дан массив из 12 элементов. Найти количество элементов массива, после последнего элемента, равного 17!

Найти количество элементов массива после последнего элемента равного 17
1.Дан Массив из 12 элементов ,Найти кол-во элементов массива после последнего элемента равного 17 2.подсчитать количество шипящих букв в...

Найти сумму чисел массива, начиная с первого числа, равного 4
Получил задание , а в QBasic не бум-бум , прошу help me :D Дан массив из 15 чисел. Найти сумму чисел массива , начиная с первого числа...

Найти сумму элементов массива, больших квадрата первого элемента
Найти сумму элементов массива, больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение о неудачности...

Найти и отпечатать сумму положительных элементов после предпоследнего элемента равного 3
Дан массив из 15 чисел: 7, 8, -4, 3, 5, 1, -2, 3, -4, 5, 4, 3, 0, -1, -5. Отпечатать исходный массив в строку. Найти и отпечатать сумму...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru