Помогите, задачка простая !!

[bet362]

здраствуйте у меня есть таблица типа
1,2,4,3,6,5, 1
3,2,1,6,5,7, 2
4,8,1,3,5,9, 1

в левой колонке числа от 1 до 10 в правой ставка на каждую из этих цифр в колонке
-- задача посчитать сумму ставок на каждое из чисел
1 4
2 3
3 4
4 2
5 4
6 3
7 2
8 1
9 1

и расскажите пожалуйста алгоритм действия, чтобы я мог изменять размеры таблицы и числа

[Dim...ON]

что-то недопонял задание
напиши в аську 198-012-696

[airyashov]

как понимаю надо подсчитать количество цифр в квадратной матрице и потом умножит на ставку для этой цифры?

[Хыиуду]

Создаем одномерный массив S чисел - это будет сумма ставок. Считаем, что левая таблица - это матрица A[i,j], а правая - одномерный массив B.
for i:=1 to N do
for j:=1 to M do
S[A[i,j]]:=S[A[i,j]]+B;

[bet362]

Объясню более толково
у нас есть некая таблица цифр скажем от 1 до 10, расположенных хаотично
1,2,4,3,6,5, 1 чють дальше размешена колонка показывающая какую ставку
3,2,1,6,5,7, 2 нужно сделать на каждое число в строке
4,8,1,3,5,9, 1 так первая строка 1,2,4,3,6,5, напротив цифра 1 ,значит
на каждое из этих чисел ставка 1 , далее
вторая строка 3,2,1,6,5,7, напротив 2 , ,значит на каждое из этих чисел ставка,
третья 4,8,1,3,5,9, напртив 1 ставка на каждое число 1

теперь считаем сколько ставок на каждое оз чисел в сумме,
1 4
2 3
3 4
4 и т. д
5
6
7
8
9
10
к примеру для цифры 1 , эта цифра встречаеться в трёх строках, в первой для неё ставка 1,во второй 2, в третьей 1 значит общая ставка 1+2+1=4

[airyashov]

for i=1 to N do
for j:=1 to M-1 do
S[A[i,j]]:=S[A[i,j]]+A[i,M];

[bet362]

не понял, а как это мделать в экселе

[Хыиуду]

С этого надо было начинать. Надо макросом или формулой?

[airyashov]

Sub Макрос1()
For I = 1 To 3
For J = 1 To 6
R = Worksheets("Лист1").Cells(I, J).Value
Worksheets("Лист1").Cells(R + 5, 1).Value = Worksheets("Лист1").Cells(R + 5, 1).Value + Worksheets("Лист1").Cells(I, 7).Value
Next J
Next I
End Sub