Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 07.01.2011
Сообщений: 53
1

Найти среднее арифметическое произвольного одномерного вещественного массива длиной N элементов

01.06.2011, 19:36. Показов 1086. Ответов 4
Метки нет (Все метки)

Найти среднее арифметическое произвольного одномерного вещественного массива длиной N элементов.
Помогите найти ошибку, прога считает только сумму элементов.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program p1;
type mas=array[1..5] of integer;
var x:mas;
    i,N:integer;
    S,K:real;
begin
     readln(N);
     for i:=1 to N do
     read(x[i]);
     for i:=1 to n do
     begin
            S:=0; K:=0;
            for i:=1 to N do
            S:=S+x[i];
            K:=K+1;
     end;
     S:=S/K;
     writeln(S:7:2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2011, 19:36
Ответы с готовыми решениями:

Найти среднее арифметическое отрицательных элементов одномерного вещественного массива
Выдаёт арифметическое переполнение, что сделать то? само условие: Найти среднее арифметическое...

Вычислить среднее арифметическое отрицательных элементов одномерного вещественного массива
Найти среднее арифметическое отрицательных элементов одномерного вещественного массива(если...

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

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

4
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
01.06.2011, 19:43 2
дак а зачем так криво писать?
Pascal
1
2
3
4
for i:=1 to n do
   s:=s+x[i];
s:=s/n;
writeln(s:0:1);
0
0 / 0 / 0
Регистрация: 07.01.2011
Сообщений: 53
01.06.2011, 20:00  [ТС] 3
Спасибо, а как это в футкцию записать все ?
0
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
01.06.2011, 20:17 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

В функцию? Не знаю. В Вашу программу вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program p1;
type mas=array[1..5] of integer;
var x:mas;
i,N:integer;
S:real;
begin
readln(N);
for i:=1 to N do
read(x[i]);
for i:=1 to N do
S:=S+x[i];
S:=S/N;
writeln(S:7:2);
end.
0
0 / 0 / 0
Регистрация: 07.01.2011
Сообщений: 53
01.06.2011, 20:26  [ТС] 5
Да это я уже написал, мне в функцию нужно! Помогите пожалуйста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2011, 20:26

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

Найти среднее арифметическое положительных элементов одномерного массива из 10 элементов
ПОМОГИТЕ пожалуйста составить программу: Найти среднее арифметическое положительных элементов...

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

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


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

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

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