1 / 1 / 0
Регистрация: 18.01.2013
Сообщений: 22
1

Найти сумму элементов на пересечении строк четной нумерации и столбцов нечетной нумерации в двумерном массиве

19.01.2013, 16:47. Показов 1362. Ответов 3
Метки нет (Все метки)

Здравствуйте. Помогите,пожалуйста,найти сумму элементов на пересечении строк четной нумерации и столбцов нечетной нумерации матрицы A()
Допишите программу
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub A1()
Dim n%,m%,i%,j%,A!()
n=Cells(1,1)
m=Cells(1,2)
ReDim A(n,m)
For i=1 To n
For j=1 To m
A(i,j)=Cells(i+2,j+2)
Next j
Next i
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2013, 16:47
Ответы с готовыми решениями:

В двумерном массиве определить в каждой четной строке сумму элементов с нечетными номерами столбцов. Напечатать эти суммы с указанием номера строки.
На большую из найденных сумм заменить последний элемент в массиве.

Найти в двумерном динамическом массиве сумму строк и сумму столбцов и сравнить их
Доброго времени суток! Не могу понять это задание: дана матрица (N+15)x(N+15), если сумма всех...

В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной диагонали
В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной...

В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной диагонали
Не могу понять,как сделать сложение по строкам,вот что у меня есть: var a:array of integer; ...

3
5462 / 1142 / 50
Регистрация: 15.09.2012
Сообщений: 3,450
19.01.2013, 19:18 2
Павел Юдаев, у цикла For ... To ... Next есть ещё Step.

После Step укажите число 2. Начните цикл с двух. Будете идти по чётными элементам.
1
1 / 1 / 0
Регистрация: 18.01.2013
Сообщений: 22
19.01.2013, 20:16  [ТС] 3
Так?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub A1()
Dim n%, m%, j%, i%, A!(), s!
n = Cells(1, 1)
m = Cells(1, 2)
ReDim A(n, m)
For i = 1 To n Step 1
For j = 1 To m Step 1
A(i, j) = Cells(i + 2, j + 2)
Next j
Next i
s = 0
For i = 2 To n Step 2
For j = 1 To m Step 2
s = s + A(i, j)
Next j
Next i
Cells(10, 10) = s
End Sub
0
5462 / 1142 / 50
Регистрация: 15.09.2012
Сообщений: 3,450
19.01.2013, 20:25 4
Павел Юдаев, да, так.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2013, 20:25

В двумерном массиве найти сумму максимальных элементов его столбцов
Здравствуйте . Задание: В двумерном массиве A найти сумму максимальных элементов его столбцов ....

В двумерном массиве найти сумму элементов, заканчивающихся четной цифрой, и произведение чисел, заканчивающихся нулем
дан двумерный массив, состоящий из 3 столбцов и 4 строк. Найти сумму элементов, заканчивающихся на...

В двумерном массиве А из m строк и n столбцов найти произведение элементов на главной диагонали и минимальные элементы в каждой строке
В двумерном массиве А из m строк и n столбцов найти произведение элементов на главной диагонали и...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.