Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a

@molekula · Регистрация: 16.09.2010

Здравствуйте.

1) Составить программу, которая заполняет массив случайными целыми числами из диапазона, введенного пользователем (в диапазон могут входить отрицательные числа). Вывести массив на экран в виде таблицы, например:
--------------------------------
Индекс | 1 2 3 4 5 6
Элемент| -10 15 -4 20 1 8
--------------------------------
Индекс 7 8 9 10 11 12
Элемент 11 -3 0 2 -17 15
--------------------------------
2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m.

@Bender123456 · 11.11.2012, 16:39

Pascal

Program  jq;
Var mas:array[1..12]  of integer;
a,i,j,n,kol,m,sum,kolc:integer;
sa: real;
Begin
write ('введите нижний диапазон =');readln(n);
write ('введите верхний диапазон =');readln(m);
Randomize;
n:=-n;
kol:=0;
sum:=0;
kolc:=0;
For i:=1 to 12 do
begin
mas[i]:=random(n+m+1)-n;
writeln('индекс',i,'=',mas[i]);
end;
write ('введите число a =');readln(a);
For i:=1 to 12 do
begin
if mas[i]<a then begin
kol:=kol+1;
sum:=sum+mas[i];
end;
end;
sa:=sum/kol;
writeln ('среднее арифметическое =', sa:2:2);
For i:=1 to 12 do
if mas[i]<sa then
kolc:=kolc+1;
writeln ('количество элементов, значения которых меньше m =', kolc);
end.

@molekula 6 / 6 / 1 Регистрация: 16.09.2010 Сообщений: 54
		1
	Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a 11.11.2012, 15:34. Показов 1835. Ответов 1 Метки нет (Все метки) Здравствуйте. 1) Составить программу, которая заполняет массив случайными целыми числами из диапазона, введенного пользователем (в диапазон могут входить отрицательные числа). Вывести массив на экран в виде таблицы, например: -------------------------------- Индекс \| 1 2 3 4 5 6 Элемент\| -10 15 -4 20 1 8 -------------------------------- Индекс 7 8 9 10 11 12 Элемент 11 -3 0 2 -17 15 -------------------------------- 2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a

Решение