Объяснение:
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
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
Поделитесь своими знаниями, ответьте на вопрос:
Туристы(отец, мать и два брата-близнеца) должны переправиться через реку. в их распоряжении есть маленькая лодка, которая вмещает только одного взрослого или двоих детей. как организовать переправу, если и взрослые и дети умеют грести? в видео сообщения! 50 , нужно!
Один брат возвращается обратно.
Переправляется отец.
Второй брат переправляется обратно.
Сейчас на том берегу отец, а на этом мать и два брата.
Переправить обоих братьев.
Один брат возвращается обратно.
Переправляется мать.
Второй брат возвращается обратно.
Переправить обоих братьев.