двумерные масивы

@saint_panda · Регистрация: 23.12.2010

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

Вычислить сумму и кол-во четных элементов матрицы.(условие)
Написал кусок а дальш не могу...
Если кто сможет решить задачу, буду очень лагодарен!

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim M As Integer, N As Intefer, F() As Integer, I As Integer, j As inreger, S As Single, K As Single, mF As String, mS As String, mk As String
N = TextBox1.Text
M = TextBox1.Text
ReDim F(N, M)
mF "исходная матрица"
For I = 1 To N
For j = 1 To M
F(I, j) = InputBox("введите элемент F (" & I&, "&j&")
mF = mF&(I, j)
Next j
For I = 1 To N
S = 0
K = 0
S = S + F(I, j)
K = K + 1
Next j

@gitarillo · 03.04.2011, 20:29

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
Private Sub Command1_Click()
Dim A() As Integer, S As Integer, K As Integer, I As Integer, J As Integer
Dim M As Integer, N As Integer
M = InputBox("Введите количество строк", "Кол-во строк", "3")
N = InputBox("Введите количество столбцов", "Кол-во столбцов", "3")
ReDim A(M, N)
Randomize
For I = 1 To M
 Print
   For J = 1 To N
     A(I, J) = Int(Rnd * 10) + 1
     Print A(I, J);
     If A(I, J) Mod 2 = 0 Then
        K = K + 1
        S = S + A(I, J)
     End If
    Next J
Next I
Print
Print "Количество четных элементов=" & K;
Print
Print "Сумма четных элементов=" & S;
End Sub

@saint_panda · 03.04.2011, 21:04 **[ТС]**

спасибо огромное)

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@saint_panda 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 6
	03.04.2011, 21:04 [ТС]
	спасибо огромное) 0