Одномерные массивы

[spiritknight]

Помогите написать процедуру по блок схеме...Буду очень признателен)

У меня получилось вот что....но не запускается((
Sub prim()
Dim n As Double
Rem
n = Val(InputBox("Введите n"))
ReDim A(i)
p = 1
For i = 1 To n
A(i) = (InputBox("Введите число"))
Next
For i = 1 To n
p = p * A(i)
Next
c = p ^ (1 / n)
MsgBox "c=" & c
End Sub

[pivas]

Ошибка здесь ReDim A(i). Не объявлен размер массива. Попробуйте добавить так
i = n
ReDim A(i)

[spiritknight]

Спасибо большое... получилось!!!

[kuperfbi]

Добрый день. Нужно посчитать колличество совпадений значений в двух массивах. Пробую через счетесли, но что-то не так. То не считает, то возвращает "истину"/"ложь"
К примеру: один массив - 1;2;3;4;5. Второй - 4;5;6;7;8;9. Совпадают два числа 4;5. Вот требуется, чтобы функция возвращала (2)

[Serge 007]

Сообщение от kuperfbi

Добрый день. Нужно посчитать колличество совпадений значений в двух массивах. Пробую через счетесли, но что-то не так. То не считает, то возвращает "истину"/"ложь"

Выкладывайте файл.

[The_Prist]

Сообщение от kuperfbi

Добрый день. Нужно посчитать колличество совпадений значений в двух массивах. Пробую через счетесли, но что-то не так. То не считает, то возвращает "истину"/"ложь"

А Вы как формулу-то записываете? Может Вы аргументы местами перепутали? Справку по функции читали?
И не мешало бы развернуть вопрос: Вы хотите посчитать кол-во повторений каждого элемента массива в другом массиве? Или еще что-то?

[kuperfbi]

Да я и предполагаю, что ошибка в синтаксисе. В сравнении числа с массивом - все работает, а массив с массивом - не фурычит.
Все, справился: =СУММ(СЧЁТЕСЛИ((E2:J2);($AA$2:$AA$1 2)))
Спасибо.

[alyon_ka]

если в диапазоне A2:A6 находится - первый массив, B2:B7 - второй массив то вписав в диапазон С2:С6 формулу =СЧЁТЕСЛИ($B$2:B$7;A$2:A$6) получим результат
А В С
1 4 0
2 5 0
3 6 0
4 7 1
5 8 1
9
т.е. напротив 4 и 5 - будут проставлены единички - вот и есть 2 повторяющихся числа, вот только сразу значение "2" в одну ячейку - эта функция вам не вернет
вообще более правильно будет ее записать так =СЧЁТЕСЛИ($B$2:$B$7;A2) для ячейки С2
для решения этой задачи можно написать пользовательскую функцию на VBA

[DV68]

{=СЧЁТ(ЕСЛИ(--((A1:A6=ТРАНСП(B1:B6)))>0;1))}
или
{=СУММ(СЧЁТЕСЛИ(($AA$2:$AA$12);ТРАНС П(B1:B6)))}