Вопрос по информатике:
Составить программу в Паскаль АВС
Найти среднее арифметическое элементов массива. Найти сумму элементов массива, которые меньше среднего арифметического.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.02.2015 07:56
- Информатика
- remove_red_eye 5092
- thumb_up 46
Ответы и объяснения 1
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.
- 25.02.2015 17:25
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.