Вычислить сумму квадратов элементов массива (2;1;0;-1;-2;-3;10) Задача: Дан массив элементов . Выполнить задачу и вывести на печать результатаНужно код для Qbasic по этой задаче

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи в QBasic можно использовать следующий код:

DIM nums(6)
nums(0) = 2
nums(1) = 1
nums(2) = 0
nums(3) = -1
nums(4) = -2
nums(5) = -3
nums(6) = 10
total = 0
FOR i = 0 TO 6
total = total + nums(i) * nums(i)
NEXT i
PRINT "Сумма квадратов элементов массива: "; total

Этот код создает массив чисел, вычисляет сумму квадратов элементов и выводит результат на экран.