Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.90
Alena_0110
0 / 0 / 1
Регистрация: 20.05.2012
Сообщений: 12
#1

Найти среднее арифметическое N чисел - Delphi

21.10.2012, 22:44. Просмотров 1557. Ответов 1
Метки нет (Все метки)

Ввести N различных чисел. Найти среднее арифметическое всех числе.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.10.2012, 22:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти среднее арифметическое N чисел (Delphi):

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности
дана последовательность стоящая из n вещественных чисел.вычислить среднее...

Дан массив вещественных чисел. Найти среднее арифметическое положительных и отрицательных чисел
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое...

Найти среднее арифметическое чисел
Помогите найти среднее арифметическое средних чисел каждой тройки. Если даны...

Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.
Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать...

Найти среднее арифметическое чисел в диапазоне [a;b]
Вводятся числа a и b. Найти среднее арифметическое таких чисел в диапазоне , у...

Найти среднее арифметическое первых 5 положительных чисел
Нужен кусок программы: Найти среднее арифметическое первых 5 положительных...

1
droider
Universal
Эксперт Pascal/Delphi
4384 / 2432 / 762
Регистрация: 04.10.2012
Сообщений: 8,847
21.10.2012, 23:36 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program elem;
var
i, n, a, sum:integer;
sa:real;
begin
Write('Количество чисел =');
Readln(n);
sum :=0;
for i:= 1 to n do
begin
Write('->');
Readln(a);
sum :=sum+a;
sa :=sum/n; //подсчет сред. ариф. N чисел
end;
Writeln('Среднее арифметическое значение ',n,' чисел равно ', sa);
readln;
end.
На будущее поиск в помощь. Подобные темы здесь рассматриваются не первый день.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2012, 23:36
Привет! Вот еще темы с решениями:

Найти среднее арифметическое чисел, принадлежащих промежутку
Люди добрые помогите написать программы, очень нужно. 1) Найти среднее...

Найти среднее арифметическое двух заданных чисел
Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. в delphi!!

Найти среднее арифметическое всех чисел а1,...,аn, кроме ai
помогите. задача абрамов 162 Даны натуральные числа i,n,действительные числа...

Найти среднее арифметическое значение всех чисел последовательности
Здравствуйте! Помогите пожалуйста с задачей: Дана последовательность целых...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru