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

Вычислить сумму и среднее арифметическое вводимой последовательности чисел

22.06.2015, 15:03. Показов 1337. Ответов 9
Метки нет (Все метки)

В задаче сказано:
Напишите программу, вычисляющую сумму и среднее арифметическое последовательности чисел которые вводятся с клавиатуры в консольном приложении.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2015, 15:03
Ответы с готовыми решениями:

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

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

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

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

9
691 / 508 / 238
Регистрация: 02.10.2012
Сообщений: 1,736
22.06.2015, 15:36 2
ну так выполняй, раз сказано
0
0 / 0 / 0
Регистрация: 22.06.2015
Сообщений: 5
22.06.2015, 15:38  [ТС] 3
Помогите кто знает как это сделать, я знаю как сделать для двух чисел, а если чисел 10 то я вообще без понятия
0
12 / 12 / 16
Регистрация: 15.10.2013
Сообщений: 61
22.06.2015, 16:05 4
не знаю в чём запечатана твоя последовательность засим пишу в массиве

Delphi
1
2
3
4
5
6
7
8
9
10
11
var
 F    : array[1..100] of integer;    //заполнишь сама
 i     : integer;  
max : integer;                          // размерность массива не больше 100
 sum: integer;                          //сумма всех чисел
 sr   : integer;                          //среднее арифметическое
begin
sum:=0;
 for i:=0 to max do
   sum:=sum+ f[i];
sr:=sum/max;
1
0 / 0 / 0
Регистрация: 22.06.2015
Сообщений: 5
22.06.2015, 17:12  [ТС] 5
Что я делаю не так???
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
a:array[1..25] of integer;
i:integer;
max:integer;
sum:integer;
sr:real;
begin
writeln('vvedite');
readln(a[i]);
begin
sum:=0;
for i:=0 to max do
sum:=sum+ a[i];
sr:=sum/max;
writeln('sum=',sum);
writeln('sr=',sr:3:2);
readln;
 
end;
  { TODO -oUser -cConsole Main : Insert code here }
end.
0
691 / 508 / 238
Регистрация: 02.10.2012
Сообщений: 1,736
22.06.2015, 17:31 6
Лучший ответ Сообщение было отмечено Princeska как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
Arr: array of integer;
n,i:integer;
sum:integer;
mean:double;
begin
write('Set array: ');
readln(n);
setlength(Arr,n);
sum:=0;
for i:=0 to n do begin 
write('Element #'+i+' - ');
readln(arr[i]);
sum:=sum+arr[i];
end;
mean:=sum/2;
writeln('Sum ='+sum+' Mean ='+mean);
end;
Добавлено через 18 минут
упс это
Delphi
1
mean:=sum/2;
на
Delphi
1
mean:=sum/n;
1
0 / 0 / 0
Регистрация: 22.06.2015
Сообщений: 5
22.06.2015, 17:39  [ТС] 7
Выдает ошибку Incompatible types: 'String' and 'Integer' здесь
Delphi
1
 write('Element #'+i+' - ');
и здесь
Delphi
1
 writeln('Sum ='+sum+' Mean ='+mean);
0
691 / 508 / 238
Регистрация: 02.10.2012
Сообщений: 1,736
22.06.2015, 17:41 8
Лучший ответ Сообщение было отмечено Princeska как решение

Решение

Delphi
1
2
 write('Element #'+inttostr(i)+' - '); 
 writeln('Sum ='+inttostr(sum)+' Mean ='+floattostr(mean));
1
northener
22.06.2015, 17:45
  #9

Не по теме:

Цитата Сообщение от Immo Посмотреть сообщение
упс это
Там есть ещё один УПС :)

0
0 / 0 / 0
Регистрация: 22.06.2015
Сообщений: 5
22.06.2015, 17:45  [ТС] 10
Спасибо огромное, дай бог тебе крепкого здоровья
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2015, 17:45
Помогаю со студенческими работами здесь

В матрице вычислить в каждой строке количество, сумму и среднее арифметическое отрицательных чисел
Здравствуйте! Чего-то не получается вот такая задача: В двухмерном массиве вычислить в каждой...

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

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

Вычислить среднее арифметическое чисел
Пользователь вводит целые числа. Вычислить среднее арифметическое тех чисел, в разряде десятков...


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

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

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