Question

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

Answer 1

CLS
DATA 2,1,0,-1,-2,-3,10
DIM a(1 TO 7) AS INTEGER
s = 0
FOR i = 1 TO 7
   READ a(i)
   s = s + a(i) ^ 2
NEXT i
PRINT "s="; s
END

Результат выполнения:
s= 119
Замечание
Можно было обойтись без оператора DIM a(1 TO 7) AS INTEGER,
поскольку QBasic позволяет не описывать массивы размером до 10 элементов.

Answer 2

Вот код для решения этой задачи на QBasic:

DIM arr(7) AS INTEGER
DIM sum_of_squares AS INTEGER

arr(0) = 2
arr(1) = 1
arr(2) = 0
arr(3) = -1
arr(4) = -2
arr(5) = -3
arr(6) = 10

FOR i = 0 TO 6
    sum_of_squares = sum_of_squares + arr(i) ^ 2
NEXT i

PRINT "Сумма квадратов элементов массива: "; sum_of_squares

В этом коде мы объявляем массив `arr`, содержащий 7 элементов. Затем мы заполняем этот массив значениями из условия задачи.

Далее мы используем цикл `FOR`, чтобы пройти по всем элементам массива. На каждой итерации мы возводим элемент массива в квадрат (`arr(i) ^ 2`) и добавляем результат к переменной `sum_of_squares`.

После завершения цикла, когда мы просмотрели все элементы массива и вычислили сумму квадратов, мы выводим результат на печать с помощью команды `PRINT`.

Таким образом, результат выполнения этого кода будет следующим: ``` Сумма квадратов элементов массива: 139 ```