Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера - Pascal ABC (14442)
Формулировка задачи:
Дано массив А [1..n9]. Найти среднее арифметическое каждого из столбцов, имеющих четные номера.
вот есть программа может ее переделать под задачу?
Решение задачи: «Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера»
textual
Листинг программы
const m = 9; var a: Array[Byte, 1..m] Of Integer; i, j, n: Byte; sum: LongInt; begin repeat Write('n='); ReadLn(n); until (n > 0); Randomize; for i := 0 to n - 1 do begin for j := 1 to m do begin a[i, j] := Random(199) - 99; Write(a[i, j]:6); end; WriteLn; end; for j := 1 to m do Write('------'); WriteLn; for j := 1 to m do if (Not Odd(j)) then begin sum := 0; for i := 0 to n - 1 do Inc(sum, a[i, j]); Write((sum / n):6:1); end else Write(' '); end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Объявляются переменные: m (равная 9), a (массив типа Integer размером 1..m), i, j, n (все три типа Byte). Также объявляется переменная sum типа LongInt.
- Выполняется цикл repeat, в котором считывается значение переменной n. Цикл продолжается до тех пор, пока n больше 0.
- Вызывается функция Randomize, которая инициализирует генератор случайных чисел.
- Запускается цикл for, который повторяется n-1 раз. В каждой итерации этого цикла считывается значение переменной i.
- Внутри цикла i выполняется еще один цикл for, который повторяется m-1 раз. В каждой итерации этого внутреннего цикла считывается значение переменной j.
- Внутри внутреннего цикла j считывается значение переменной a[i, j] и присваивается переменной a[i, j] значение, сгенерированное случайным образом (Random(199) - 99).
- Выводится значение a[i, j] с помощью функции Write.
- Выводится символ
-
для каждого столбца матрицы, имеющего нечетный номер (если Not Odd(j)). - Иначе, выводится символ
- После завершения внутреннего цикла j выводится символ
------
. - Выполняется еще один цикл for, который повторяется m-1 раз. В каждой итерации этого цикла выводится значение sum с помощью функции Write.
- Выводится символ
/
для каждого столбца матрицы, имеющего четный номер (если Not Odd(j)). - Иначе, выводится символ
- Выводится символ
n
, чтобы показать, что это среднее арифметическое для столбца с номером n. - Выводится символ
=
для каждого столбца матрицы, имеющего четный номер (если Not Odd(j)). - Иначе, выводится символ
- Выводится символ ``.
- Выполняется цикл repeat, в котором считывается значение переменной n. Цикл продолжается до тех пор, пока n больше 0.
- Вызывается функция ReadLn, которая считывает ввод пользователя.
- Код завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д