10 INPUT "kolvo znacheniy massiva", a
20 DIM aa(a)
30 FOR i = 1 TO a
40 INPUT aa(i)
50 NEXT
60 FOR s = 1 TO a
70 ss = aa(s) * aa(s) + ss
80 NEXT s
90 PRINT SQR(ss)
Тестирование выполнено в программе QB64 ( Скачать )
10 INPUT "kolvo znacheniy massiva", a
20 DIM aa(a)
30 FOR i = 1 TO a
40 INPUT aa(i)
50 NEXT
60 FOR s = 1 TO a
70 ss = aa(s) * aa(s) + ss
80 NEXT s
90 PRINT SQR(ss)
Тестирование выполнено в программе QB64 ( Скачать )