1 / 1 / 1
Регистрация: 17.12.2012
Сообщений: 83
1

Вычисление среднего значения элементов одномерного массива (подпрограмма)

07.04.2015, 18:01. Показов 1802. Ответов 2
Метки нет (Все метки)

Дано: массивы A(7), L(12), B(8). Вычислить среднее значение элементов массивов A, L, B. Вычисление среднего значения элементов массива оформить в виде подпрограммы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2015, 18:01
Ответы с готовыми решениями:

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

Рекурсия: вычисление суммы элементов одномерного массива, имеющих четные значения
Добрый день. Не подскажете как сделать рекурсивную функцию которая вычисляет Сумму элементов...

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

Рекурсия: вычисление среднего арифметического элементов массива
Написать рекурсивную процедуру для нахождения среднеарифметического значаения элементов одномерного...

2
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
08.04.2015, 07:45 2
Лучший ответ Сообщение было отмечено Prapor48 как решение

Решение

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
var
  a,l,b:array of real;
function sr(q:array of real):real;
var
  s:real;
  i:integer;
begin
  s:=0;
  for i:=low(q) to high(q) do s:=s+q[i];
  sr:=s/(1+high(q));
end;
procedure enterarr(var q:array of real;s:string);
var
  i:integer;
begin
  writeln(s);
  for i:=low(q) to high(q) do read(q[i]);
end;
begin
  setlength(a,7);
  setlength(l,12);
  setlength(b,8);
  enterarr(a,'Введите массив A (7 значений):');
  enterarr(l,'Введите массив L (12 значений):');
  enterarr(b,'Введите массив B (8 значений):');
  writeln('<Sa>=',sr(a):0:2);
  writeln('<Sl>=',sr(l):0:2);
  writeln('<Sb>=',sr(b):0:2);
end.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32244 / 20884 / 8086
Регистрация: 22.10.2011
Сообщений: 36,119
Записей в блоге: 7
08.04.2015, 12:02 3
Опять велосипеды. Сколько же можно? Все же уже есть готовое:
Pascal
1
2
3
4
5
6
uses math;
 
function sr(q:array of real):real;
begin
  sr := Mean(q);
end;
3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2015, 12:02
Помогаю со студенческими работами здесь

вычисление среднего арифметического четных элементов массива, зачет
&gt;ДАН МАССИВ ИЗ 30 ЧИСЕЛ. ЭЛЕМЕНТЫ МОГУТ ПРИНИМАТЬ ОТ -1000 ДО 1000. НАЙТИ И ВЫЧИСЛИТЬ СР АРИФМ...

Вывести количество элементов массива которые большего среднего значения массива
1) Вообщем задача звучит так: Дан целочисленный массив из 30 элементов.Элементы массива могут...

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

Подпрограмма поиска максимального элемента одномерного массива.
Задача: Найти максимальные элементы одномерных массивов a,b,c и их номера. Подпрограмму поиска...


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

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

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