Вычисление средних арифметических массивов

Задача: 

Найти средние арифметические пяти массивов, состоящих их десяти целых чисел.

Описание переменных: 

arr – массив, состоящий их 5 элементов-массивов, каждый из которых в свою очередь содержит 10 целых чисел;
average – массив, содержащий средние арифметические вложенных массивов массива arr;

Алгоритм решения задачи: 
  1. Заполняем массивы целыми числами с помощью функции fill_array. Функция вызывается в цикле for 5 раз и возвращает очередной подмассив массива arr.
  2. Для каждого вложенного массива целых чисел вычисляется среднее арифметическое с помощью функции found_average. Результат заносится в массив average.
Программа на языке Паскаль: 

const n = 10; m = 5;
type
    type_numbers = array[1..n] of integer;
    type_arr = array[1..m] of type_numbers;
    type_average = array[1..m] of real;
var
    arr: type_arr; {array of arrays}
    average: type_average; {array of averages}
    i,j: byte;
 
function fill_array():type_numbers;
var i:byte; a:type_numbers;
begin
    for i:=1 to n do a[i]:=random(50)+1;
    fill_array := a;
end;
 
function found_average(a:type_numbers):real;
var i:byte; sum:integer;
begin
    sum := 0;
    for i:=1 to n do sum:=sum+a[i];
    found_average := sum / n;
end;
 
begin
    randomize;
    for i:=1 to m do arr[i] := fill_array();
    for i:=1 to m do begin
        for j:=1 to n do write(arr[i,j]:3);
        average[i]:=found_average(arr[i]);
        writeln(' -- ', average[i]:6:2);
    end;
readln
end.

Комментарии

Помогите составить код на

Помогите составить код на нахождение среднего геометрического числа всех целых положительных чисел меньших 10

var i: byte; mult:

var 
    i: byte;
    mult: longint;
    geom: real;
begin
    i := 1;
    mult := 1;
    while i < 10 do begin
        mult := mult * i;
        i := i+1;
    end;
    geom := exp((1.0/i) * ln(mult));
    writeln(geom:10:4);        
end.

Возможно выражение exp((1.0/i) * ln(mult)) не верно.

Найти среднее арифметическое

Найти среднее арифметическое чисел, принадлежащее промежутку [A,B) и количество положительных чисел стоящих на местах, кратных 4. Задача должна решаться с массивом.

Помогите решить задачу!

Нужно создать программу для построения масива с 20 елементами a[i]=4sin3i и найти средне арифметическое значение елементов больших от -1 и меньших от 1

Помогите решить задачy!

С клавиатуры вводится натуральное число N.
За ним последовательно вводятся данные о росте n yчашихся класса. Определите средний рост yчашихся всего класса.
Попробyйте решить задачy без использования массивов. 

var i,n, growth: byte;

var
    i,n, growth: byte;
    sum: real;
 
begin
    write('Количество учащихся: ');
    readln(n);
 
    sum := 0;
    for i:=1 to n do begin
        write('Рост ', i, '-го ученика: ');
        readln(growth);
        sum := sum + growth;
    end;
 
    writeln('Средний рост: ', sum / n:7:2);
readln;
end.

Составить подпрограмму,

Составить подпрограмму, которая вычисляет среднее арифмитическое и среднегеометрическое массива Х(N). с помощью подпрограммы вычислить среднеарифмитическое и среднегеометрическое массивов А(1, В(6), С(13), D(8). для передачи имени массивов в подпрограмму использовать понятие открытого массива. элементы массивов А, В, С, и D вычислить по формулам
Аi=1.5i+3i^2-2
Bj=0.4je^sin(j)
Ck=cos(2.4k)e^sin(3k)
Dm=2m-3m^0.5+4m^2+1