0 / 0 / 0
Регистрация: 03.02.2012
Сообщений: 24
1

Найти все элементы массива, меньшие среднего арифметического остальных элементов массива.

08.03.2012, 04:21. Показов 2272. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан одномерный числовой массив. Найти все его элементы, меньшие среднего арифметического остальных элементов массива. Посчитать их количество.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.03.2012, 04:21
Ответы с готовыми решениями:

Найти все элементы массива, меньшие среднего арифметического следующих за ним элементов массива.
Дан одномерный числовой массив. Найти все его элементы, меньшие среднего арифметического следующих...

Заменить все элементы массива, меньшие среднего арифметического, на 0
помогите написать программу которая организует ввод с клавиатуры одномерного массива целых чисел,...

Вывести все элементы массива, меньшие среднего арифметического
1. Дан одномерный массив из 10 элементов. Найти среднее арифметическое его элементов и вывести все...

Элементы, меньшие среднего арифметического всех элементов массива нужно заменить нулём.
Составить программу, которая преобразует массивы А(10) и В(12) следующим образом: элементы, меньшие...

1
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.03.2012, 09:47 2
Лучший ответ Сообщение было отмечено Инно4ка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
    s:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
s:=0;{сразу посчитаем сумму всех элементов}
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
  s:=s+a[i];
 end;
writeln;
writeln('Элементы меньшие среднего остальных:');
k:=0;
for i:=1 to n do{если меньше суммы без данного элемента
деленная на n-1}
if a[i]<(s-a[i])/(n-1) then
 begin
  write(a[i]:4);
  k:=k+1;
 end;
writeln;
write('Их количество=',k);
readln
end.
0
08.03.2012, 09:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2012, 09:47
Помогаю со студенческими работами здесь

Вывести все элементы, значение которых превосходит среднего арифметического элементов массива
Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего...

Задача с параметрами и без параметров. Из массива удалить элементы, меньшие ср. арифметического четных элементов массива
Здравствуйте! Решите пожалуйста! Заранее спасибо! Нужно решить задачу с параметрами и без...

Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов
Помогите, пожалуйста, правильно написать программу. Я написал код, но он не запускается. ...

Из массива удалить элементы, имеющие значение меньше среднего арифметического четных элементов массива
Здравствуйте ! Помогите пожалуйста Функции и процедуры Из массива удалить элементы, имеющие...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru