Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
 Аватар для Milena ok
2 / 1 / 1
Регистрация: 08.12.2011
Сообщений: 30

Как подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива

10.12.2012, 11:49. Показов 1824. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан числовой массив a(n). Подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
10.12.2012, 11:49
Ответы с готовыми решениями:

Подсчитать количество таких і, для который F[i] не меньше всех предыдущих элементов массива
2.Создать программу для подсчета количества таких і в цел.мас. F, для который F не меньше всех предидущих ему елементов массива.

Дан числовой массив.Посчитать количество его элементов, которые не меньше всех предыдущих
Ребят,пожалуйста,если не сложно, напишите как делать...А то вообще не понимаю как делать=( Дан числовой массив а1,а2...аn.Посчитать...

Дан вещественный вектор А(н). Подсчитать количество таких i, что А [i] не меньше всех предыдущих элементов вектора (А [1
Здравствуйте, задание делаю в делфи 7, правильно ли я его сделал задание? Подскажите пожалуйста, а то в ответ выводит всегда 0(( Буду...

3
 Аватар для OldFedor
7486 / 4150 / 474
Регистрация: 25.08.2012
Сообщений: 11,530
Записей в блоге: 11
10.12.2012, 12:21
Цитата Сообщение от Milena ok Посмотреть сообщение
Подсчитать количество элементов
1. Водится массив размерностью n
2. Оформляется два цикла
- внешний по i от 2 до n
- внутренний от j=1 до i-1
3. Во внутреннем цикле через if проверяете - текущий a(j) >= a(i) и если да,
то переменную kol увеличиваете на 1.
После внутреннего цикла вывод текущего kol.

Удачи.
0
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
10.12.2012, 13:17
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim a(1 To 10)
For i = 1 To 10
 a(i) = Int(Rnd(1) * 10)
 Print a(i);
Next i
Print
 
k = 0
For i = 2 To 10
 For j = 1 To i - 1
  If a(i) >= a(j) Then
   k = k + 1
   Exit For
  End If
 Next j
Next i
Print k
 
 
End Sub
0
 Аватар для OldFedor
7486 / 4150 / 474
Регистрация: 25.08.2012
Сообщений: 11,530
Записей в блоге: 11
10.12.2012, 13:30
Цитата Сообщение от sco43 Посмотреть сообщение
Код Visual Basic
Надеялся, что словесного описания достаточно и напишет сам.

Добавлено через 55 секунд
Print k
Желательно поставить выше. Этих значений много
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.12.2012, 13:30
Помогаю со студенческими работами здесь

Подсчитать количество элементов файла f, которые меньше среднего арифметическое всех элементов файла
Помогите пожалуйста написать программу! Вот задание: Type reals = file of real; var f:reals. Написать функцию, которая подсчитывает ...

Подсчитать количество элементов одномерного массива, которые превосходят среднее арифметическое всех элементов массива
Подсчитать количество элементов одномерного массива, которые превосходят среднее арифметическое всех элементов массива.

В данном линейном массиве действительных чисел найти количество элементов, которые меньше среднего арифметического всех элементов этого массива
помогите!!!!!!! В данном линейном массиве действительных чисел найти количество элементов, которые меньше среднего арифметического...

Подсчитать среднее значение всех элементов массива, которые меньше заданного числа
Заполните массив случайными числами в интервале и подсчитайте отдельно среднее значение всех элементов,которые меньше 50, и среднее...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru