Const
maxN = 100; // Максимальное кол-во элементов массива
var
n, i: longint;
middle, sum, sum2: real; // Может быть нецелым числом
a: array[1..maxN] of real;
begin
write('Введите количество элементов массива: ');
readln(n);
sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
write('Введите элементы массива через пробел: ');
for i := 1 to n do begin
read(a[i]);
sum := sum + a[i];
end;
middle := sum / n; // Вычисляем среднее арифметическое
writeln('Среднее арифметическое = ', middle);
sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
for i := 1 to n do
if a[i] < middle then
sum2 := sum2 + a[i];
writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.
У, например благодатной почвой для сюжета можно выбрать - Старые сказки на супер-новый лад... Известные герои с неизвестным продолжением... Как вам такое: Буратино исполнилось 35 лет, Мальвина - его жена, у Буратино 5 детей, Карабас Барабас возглавляет мафиозную структуру и так далее... Или рисованный мультик про Чебурашку-каратиста, который работает в сыскном агентстве ...Вариантов много, буду нужен - пишите на ящик.<span>
</span>