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

Ответы:

ЕЛИНА ТУРА

21-09-2014 21:23

CLSDATA 2,1,0,-1,-2,-3,10DIM a(1 TO 7) AS INTEGERs = 0FOR i = 1 TO 7 READ a(i) s = s + a(i) ^ 2NEXT iPRINT "s="; sENDРезультат выполнения:s= 119ЗамечаниеМожно было обойтись без оператора DIM a(1 TO 7) AS INTEGER,поскольку QBasic позволяет не описывать массивы размером до 10 элементов.

Также наши пользователи интересуются:

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

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!