Найти среднее арифметическое в массиве

@Den4os · Регистрация: 10.10.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу!
Найти среднее арифметическое тех элементов одномерного массива Х, значение которых не превышают Х1, включая и сам элемент Х1. Найти также среднее арифметическое всех элементов данного массива.
Примечание: нужно разработать алгоритм и программу обработки одномерных массивов, используя единственный цикл.

@ilyadenisovid · 10.10.2013, 07:16

Pascal

program test;
var
arr : array[1..20] of integer;
i, sum, sum2, col, x : integer;
sred, sred2 : real;
begin
sum := 0;
sum2 := 0;
col := 0;
x := 50;
for i:=1 to 20 do
begin
writeln('Введите очередной элемент массива: ');
readln(arr[i]);
sum := sum + arr[i];
if arr[i] >= x then 
begin
sum2 := sum2 + arr[i];
col := col + 1;
end;
end;
sred2 := sum2 / col;
sred := sum / 20;
writeln('Среднее арифмитическое чисел больше : ', sred2);
writeln('Среднее всех чисел ', sred);
readln;
end.

@Den4os · 10.10.2013, 09:43 **[ТС]**

Спасибо большое!

@Den4os 0 / 0 / 0 Регистрация: 10.10.2013 Сообщений: 3
		1
	Найти среднее арифметическое в массиве 10.10.2013, 00:34. Показов 1334. Ответов 2 Метки нет (Все метки) Помогите пожалуйста написать программу! Найти среднее арифметическое тех элементов одномерного массива Х, значение которых не превышают Х1, включая и сам элемент Х1. Найти также среднее арифметическое всех элементов данного массива. Примечание: нужно разработать алгоритм и программу обработки одномерных массивов, используя единственный цикл. 0

@Den4os 0 / 0 / 0 Регистрация: 10.10.2013 Сообщений: 3
	10.10.2013, 09:43 [ТС]	3
	Спасибо большое! 0

Найти среднее арифметическое в массиве

Решение