Вычислить квадратный корень из суммы квадратов элемента массива — QBasic(Бейсик)

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 ( Скачать )

Leave a Comment