{* Задача75 *}

REM basic

' Задан массив натуральных чисел размером 30 элементов. Опишите на русском языке или одном из языков программирования алгоритм получения из него другого массива, который будет содержать в каждой своей ячейке с индексом i сумма квадратов всех натуральных чисел от единицы до значения i-м элементе исходного массива.


CLS
Dim a(30), b(30)
For i = 1 To 30
INPUT "vvedite element"; a(i)
Next
For i = 1 To 30
s = 0
For j = 1 To a(i)
s = s + j ^ 2
Next
b(i) = s
Next
For i = 1 To 30
PRINT a(i);
Next
PRINT
PRINT "New massiv"
For i = 1 To 30
PRINT b(i);
Next
End