4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
1

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

15.03.2012, 17:17. Показов 1085. Ответов 1
Метки нет (Все метки)

заданы массивы А1(6)а2)(7)А(14).найти среднее арефметическое значение элементов массива и определить масимальное среди них .нахождение среднеарефметического элементов массива оформить в виде подпрограммы. зазаполнение массивов на печать оформить в виде подпрограмм.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2012, 17:17
Ответы с готовыми решениями:

Найти среднее арифметическое число среди элементов отсортированного массива
(Помогите) Я просто пока не понял что такое типизированная константа. Задан одномерный массив...

Среди элементов нечетных столбцов массива найти среднее арифметическое элементов, лежащие в интервале
Дан массив Х(N,M). Среди элементов нечетных столбцов массива найти среднее арифметическое...

Определить среднее арифметическое значение среди положительных и отрицательных чисел массива и сравнить их модули между собой
Здравствуйте.Задача была такая: введите с клавиатуры массив z(s),элементами которого являются...

Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение
Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное...

1
4299 / 1421 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
15.03.2012, 19:45 2
Лучший ответ Сообщение было отмечено Richik123 как решение

Решение

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
35
36
37
38
39
uses crt;
const n = 6;
type mas = array [0..13] of integer;
var  i,s,s1,s2: integer;
     a,a1,a2: mas;
procedure init(var m: mas; n1: integer);
var i: integer;
begin
 for i:=1 to n1 do
  begin
   m[i]:=random(50);
   write(m[i]:3);
  end;
 writeln;
end;
 
function sr(m: mas; n1: integer): integer;
var sum: integer;
begin
 for i:=1 to n1 do
  sum:=sum+m[i];
 sr:=trunc(sum/n1);
 writeln;
end;
 
begin
  init(a,n);
  s:=sr(a,n);
  init(a1,n+1);
  s1:=sr(a1,n+1);
  init(a2,n*2);
  s2:=sr(a2,n*2);
  writeln('Sr1=',s,', sr2=',s1,', sr3=',s2);
  if s1>s then
   s:= s1;
  if s2>s then
   s:= s2;
  writeln('Max = ',s);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2012, 19:45
Помогаю со студенческими работами здесь

Найти среднее арифметическое среди элементов массива
Надо сдать 04.06.15 г. приму любую возможную помощь,уж очень надо,в 15 часов уже сдавать... Ввести...

Определить среднее арифметическое значение элементов массива
N=12 Определить среднее арифметическое значение элементов массива помогите пожалуйста*

Найти среднее арифметическое положительных и отрицательных элементов среди четных строк массива
помогите, написать программу! по заданию: Дан массив, Х(N,M) . найти среднее арифметическое...

Найти среднее арифметическое значение элементов массива
Найти среднее арифметическое значение элементов


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

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

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