Найти число m – среднее арифметическое всех элементов массива

@kventi5 · Регистрация: 21.10.2012

2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m.

Добавлено через 10 минут
помогите пожалуйста

@franc_gs · 18.11.2012, 00:19

Pascal

const n=25;
var ar:array[1..n] of integer;
    i,a,s,l:integer;
    m:real;
begin
 for i:=1 to n do
 ar[i]:=random(10)-random(20);
 
 for i:=1 to n do
 write(ar[i],' ');
 writeln;
 writeln('Введите a:');
 readln(a);
 
 for i:=1 to n do
 if ar[i]<a then
 begin
 s:=s+ar[i];
 l:=l+1;
 end;
 m:=s/l;
 
 l:=0;
 
 for i:=1 to n do
 if ar[i]<m then
 l:=l+1;
 
 writeln('Число m=',m:1:2);
 writeln('Kоличество элементов, значения которых меньше m равно ',l);
end.

@kventi5 · 18.11.2012, 11:14 **[ТС]**

спасибо огромное

Комментарий модератора

Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@kventi5 1 / 1 / 0 Регистрация: 21.10.2012 Сообщений: 35
		1
	Найти число m – среднее арифметическое всех элементов массива 17.11.2012, 21:22. Показов 1105. Ответов 2 Метки нет (Все метки) 2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m. Добавлено через 10 минут помогите пожалуйста __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти число m – среднее арифметическое всех элементов массива

Решение