Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А - Pascal
Формулировка задачи:
Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А. Вывести результат на экран
Решение задачи: «Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А»
textual
Листинг программы
uses crt; type T2DArray = array [1..4, 1..3] of real; function matrix: T2DArray; //считываем матрицу var i, j: integer; begin for i:=1 to 4 do for j:=1 to 3 do readln(matrix[i, j]); clrscr; end; function ArithmeticMean(a: T2DArray): real; //находим среднее арифметическое положительных элементов var i, j, k: integer; begin ArithmeticMean:=0; k:=0; for i:=1 to 4 do for j:=1 to 3 do if a[i, j]>0 then begin ArithmeticMean:=ArithmeticMean+a[i, j]; inc(k); end; ArithmeticMean:=ArithmeticMean/k; end; begin randomize; write(ArithmeticMean(matrix)); readln; end.
Объяснение кода листинга программы
- Объявление типа массива и переменной для хранения матрицы.
- Функция для считывания значений матрицы.
- Функция для вычисления среднего арифметического положительных элементов матрицы.
- Объявление переменных для хранения индексов матрицы и счётчика положительных элементов.
- Проверка каждого элемента матрицы на положительность и добавление к общему значению среднего арифметического, если элемент положительный.
- Возвращение значения среднего арифметического.
- Вывод случайного числа на экран.
- Ввод с клавиатуры значения среднего арифметического положительных элементов матрицы.
- Чтение значения с клавиатуры.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д