В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов

[aiktz]

очень нужна помощь!!! помогите пожалуйста записать эту программу на VBasic.

В массиве A каждый элемент, кроме первого, заменить суммой всех предыдущих элементов

program prim;
uses crt;
var a:array[1..20] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 20 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
write(a[1],' ');
for i:=2 to 20 do
begin
a[i]:=a[i-1]+a[i];
write(a[i],' ');
end;
readln;
end.

буду очень признательна!

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread75892.html
по пятнадать раз одно и тоже...

[aiktz]

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

[andik]

Ничего сложного. Надеюсь что вопросов нет.

Private Sub Command1_Click()
Cls
Dim a(1 To 20) As Integer, i As Integer
For i = 1 To 20
  a(i) = Int(10 * Rnd)
  Print (Val(a(i)))
Next i
Print
For i = 2 To 20
  a(i) = a(i - 1) + a(i)
  Print (Val(a(i)))
Next i
End Sub

[aiktz]

спасибо ВАМ огоромное!!! очень благодарна!!!

[aiktz]

а что такое Val ??

[aiktz]

разобралась

[andik]

aiktz, это перевод строки в число. Вот ты мне кстати сейчас указала на ошибочку. Она конечно несущественная и непринципиальная, но Val здесь вообще лучше не использовать. Следовало наоборот переводить число в строку (функцией str). Да и ее тоже не надо. Print он и так напечатает то что нужно.
Короче, нахрена их тут вообще использовать =D пиши так, будет норм:

Private Sub Command1_Click()
Cls
Dim a(1 To 20) As Integer, i As Integer
For i = 1 To 20
  a(i) = Int(10 * Rnd)
  Print a(i)
Next i
Print
For i = 2 To 20
  a(i) = a(i - 1) + a(i)
  Print a(i)
Next i
End Sub