Блог для маленьких школьников и их родителей
ШколаЛа

ПАСКАЛЬ! ПОЖАЛУЙСТА, ПОМОГИТЕ! Заменить элементы, значение которых больше среднего арифметического на…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

ПАСКАЛЬ! ПОЖАЛУЙСТА, ПОМОГИТЕ!

Заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое.

Ответов к вопросу: 1
  • raulskripacoxb01n
    31.10.2024 | 21:58

    Ответ:
    a — массив;
    sum — сумма элементов массива;
    avrg — среднее значение.
    Пример алгоритма решения задачи:

    Заполняем массив (например, случайными числами).
    Переменной sum изначально присваиваем значение 0.
    Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.
    Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).
    Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)
    Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.
    const N = 10;
    var
    a: array[1.N] of integer;
    i: byte;
    avrg: real;
    sum: integer;
    begin
    randomize;
    for i:=1 to N do a[i]:=random(50)+1;
    sum := 0;
    for i:=1 to N do sum := sum + a[i];
    avrg := sum/N;

    // весь массив
    for i:=1 to N do write(a[i]:3);
    writeln;

    writeln(‘Среднее арифм.: ‘,avrg:4:2);

    // больше avrg
    for i:=1 to N do if a[i]>avrg then write(a[i]:3);
    writeln;
    end.
    Пример выполнения программы:

    7 36 21 48 33 46 7 17 19 41
    Среднее арифм.: 27.50
    36 48 33 46 41
    Объяснение:

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.