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

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

07.11.2012, 18:00. Просмотров 1624. Ответов 1
Метки нет (Все метки)

В массиве А[52] найти минимальное, максимальное и среднее арифметическое значение элементов. Значение элементов задается формулой А(i)=(i^2 + 1)*((sin1/2)/(i^3 - 1))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2012, 18:00
Ответы с готовыми решениями:

В массиве найти максимальное и минимальное нечётные числа и их среднее арифметическое
Имеется массив А из N произвольных чисел. Используя операторы цикла, составить программу нахождения...

Найти максимальное и минимальное значение, и заменить их на среднее арифметическое всего массива
В массиве n≤20 элементов. Найти максимальное и минимальное значение, и заменить их на среднее...

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

Найти максимальное и минимальное значения среди элементов массива и их среднее арифметическое
Помогите пожалуйста с заданием: В массиве А(20) найти максимальное и минимальное значения среди...

1
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
07.11.2012, 18:58 2
Лучший ответ Сообщение было отмечено Fredli как решение

Решение

Цитата Сообщение от Fredli Посмотреть сообщение
(i^2 + 1)*((sin1/2)/(i^3 - 1))
При i = 1, получаем 0 в знаменателе, что-то тут не так. Посему поставит i^3 + 1.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
const
  n = 52;
 
type 
  Arr = array [1..n] of real;
 
var
  A : arr;
  i : integer;  
 
function AMax (A : Arr) : real;
var
 i : integer;
 max : real; 
begin
 max := A[1];
 for i := 1 to 52 do
  if A[i] > max then max := A[i];
 AMax := max; 
end;
 
function AMin (A : Arr) : real;
var
 i : integer;
 min : real; 
begin
 min := A[1];
 for i := 1 to 52 do
  if A[i] < min then min := A[i];
 AMin := min; 
end;
 
function Asr (A : Arr) : real;
var
 i : integer;
 sr : real; 
begin
 sr := 0;
 for i := 1 to 52 do
  sr := sr + A[i];
 Asr := sr/52; 
end;
 
begin
Writeln('Исходный массив: ');
for i := 1 to n do
 begin
 A[i] := (i*i + 1)*(sin(1/2)/(i*i*i + 1));
 if i mod 7 = 0 then Writeln(A[i]:0:2, ' ') 
  else Write(A[i]:0:4, ' ');
 end;
Writeln;
Writeln('Максимальный элемент: ', AMax(A):0:4); 
Writeln('Минимальный элемент: ', AMin(A):0:4); 
Writeln('Среднее арифметическое: ', Asr(A):0:4); 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2012, 18:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти минимальное, максимальное и среднее значение элементов массива
1)Ввести массив из 10 чисел. Найти минимальное, максимальное и среднее значение. Эти значения...

Найти максимальное, минимальное и вывести среднее арифметическое массива
дан массив от 1до 10. найти максимальное,минимальное и вывести средней арифметическое Только надо...

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

Массивы. Найти среднее, максимальное, минимальное значение
В массиве хранятся оценки студентов по информатике.Найти: - среднюю оценку - max и min оценку -...


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

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

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