Найти числа, отклоняющиеся от среднего значения

Задача

 

Найти элементы массива, которые сильно отклоняются от среднего значения (элементов массива).

"Отклонение" будет вычисляться как процент разности между элементом и средним значением к среднему значению. Например, если очередной элемент равен 10, а среднее значение массива равно 5, то (10-5)/5 = 1 (100%). Т.е. значение элемента превышает среднее значение на 100%.

Пусть в данной задаче ищутся элементы, разница со средним значением которых превышает 50%.

 

Решение

 

const n = 15;
var
    arr: array[1..n] of integer;
    m,i: byte;
    mean: real;
begin
    write('Qty: '); readln(m);
    if m > n then m := n;
    mean := 0;
    for i:=1 to m do begin
        read(arr[i]);
        mean := mean + arr[i];
    end; writeln;
    mean := mean / m;
    writeln('Mean = ', mean:4:2);
    for i:=1 to m do
        if abs(arr[i] - mean) / mean > 0.5 then
            write(arr[i],' ');
    writeln;
end.

 

Тема

Одномерные массивы

Уровень

Простые задачи

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