Найти среднее значение элементов массива, разделить каждый элемент на это значение - QBasic

Узнай цену своей работы

Формулировка задачи:

Вводится произвольный квадратный массив. Нужно найти среднее значение элементов этого массива, разделить каждый элемент на это среднее значение и вывести результат в виде отдельного массива. Выручайте!

Решение задачи: «Найти среднее значение элементов массива, разделить каждый элемент на это значение»

textual
Листинг программы
INPUT razmerx, razmery
DIM a(razmerx,razmery)
DIM b(razmerx,razmery)
 
FOR i = 0 TO razmerx - 1
    FOR j = 0 TO razmery - 1
        INPUT a(i,j)
        s = s + a(i,j)
    NEXT j
NEXT i
 
s = s / (razmerx * razmery)
 
FOR i = 0 TO razmerx - 1
    FOR j = 0 TO razmery - 1
        b(i,j) = a(i,j) / s
    NEXT j
NEXT i

Объяснение кода листинга программы

  1. Ввод размеров массива a и b с помощью команд INPUT razmerx, razmery
  2. Объявление массива a(razmerx,razmery) и b(razmerx,razmery)
  3. Заполнение суммы элементов массива a переменной s с помощью цикла FOR и команды INPUT a(i,j)
  4. Вычисление среднего значения элементов массива a путем деления суммы на произведение размеров массива с помощью команды s = s / (razmerx * razmery)
  5. Заполнение массива b элементами, которые равны соответствующим элементам массива a, разделенным на среднее значение с помощью цикла FOR и команды b(i,j) = a(i,j) / s
  6. Ввод значений элементов массива a с помощью цикла FOR и команды INPUT a(i,j)

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы