В чем ошибка ? VBS Dim X()Dim Y()n = inputbox(vblfamp;amp; "

В чем ошибка ? VBS
Dim X()
Dim Y()
n = inputbox(vblfamp; " напиши значение ''n''(количество расчетов)")
Redim X(n)
Redim Y(n)
Randomize
For i = 1 to n
X(i) = 5 - 10*Rnd
Next
S=X(1)/i
For i = 2 to n
S = (X(1)/i+ X(i)/((i-1)*i)
Next

ms = " X " amp;" S " amp;vblf amp; "_______________________" amp; vblf
For i=1 to n
ms = ms amp; x(i) amp; " " amp; S amp; " " amp;vbLf
Next
ms=ms amp; "_______________________"

MsgBox ms ,," Кутнякова, Выручаев, "

Arina 2019-09-12 23:15:06

1. Исправьте s=0: for i=1 to n s=s+x(i)/i 2.в выводе цикл не нужен (промежные результаты не выводим) 3. Обратите внимание в нужно использовать For Each(по заданию)