Процедура для подсчета количества элементов в массиве

@Gavrgrek · Регистрация: 27.04.2012

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

Ребят, помогите пожалуйста.)надо написать процедуру для подсчета в заданном массиве A(5,5) количества элементов превышающих заданное число B и лежащих на главной диагонали и выше нее. Очень прошу!!!)

@all_angarsk · 29.04.2012, 13:34

Visual Basic
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
Private Sub CommandButton1_Click()
Dim b(5, 5) As Integer, D(5) As Single, i As Integer, j As Integer
Dim Cym(5) As Integer, z As Integer, v As Integer, Max As Single
 
Cells.Clear
n = InputBox("Введите число от -50 до 50", "", "13")
Randomize
For i = 1 To 5
 
For j = 1 To 5
b(i, j) = Rnd() * 100 - 50
Cells(i + 1, j + 1) = b(i, j)
 
If i <= j Then
If b(i, j) >= n Then
z = z + 1
Cells(i + 1, j + 8) = b(i, j)
End If
End If
 
Next
 
Next
Cells(i + 4, 2) = "Количество элементов превышающих заданное число  " & n & "  лежащих на главной диагонали и выше нее  = " & z
End Sub

@Gavrgrek · 29.04.2012, 13:47 **[ТС]**

Спасибо большое, выручили!!))

@simba199 · 04.05.2012, 15:58

Довольно таки неплохо!

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@Gavrgrek 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 9

	Процедура для подсчета количества элементов в массиве 27.04.2012, 12:30. Показов 1952. Ответов 3 Метки нет (Все метки) Ребят, помогите пожалуйста.)надо написать процедуру для подсчета в заданном массиве A(5,5) количества элементов превышающих заданное число B и лежащих на главной диагонали и выше нее. Очень прошу!!!) 0

@Gavrgrek 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 9
	29.04.2012, 13:47 [ТС]
	Спасибо большое, выручили!!)) 0

@simba199 6 / 6 / 0 Регистрация: 27.04.2012 Сообщений: 21
	04.05.2012, 15:58
	Довольно таки неплохо! 0

Опции темы