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

Задача

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

Решение

 

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

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.

 

Тема

Процедуры, функции, рекурсии

Уровень

Сложные задачи

Добавить комментарий

CAPTCHA
Этот вопрос задается для того, чтобы выяснить, являетесь ли Вы человеком или представляете из себя автоматическую спам-рассылку.
CAPTCHA на основе изображений
Введите символы, которые показаны на картинке.