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

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

30.10.2014, 09:44. Показов 1609. Ответов 1
Метки нет (Все метки)

Помогите решить

1. Дан одномерный массив, который содержит не более 50 целых чисел. Найти среднее арифметическое тех элементов, которые расположены за наибольшим элементом массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2014, 09:44
Ответы с готовыми решениями:

Найти среднее арифметическое тех элементов массива, которые больше заданного значения Z
Дан массив X(N,M).Найти среднее арифметическое тех элементов массива, которые больше заданного...

Найти сумму отрицательных элементов массива, которые расположены между максимальным и минимальным элементом
нужна помощь.... Дан одномерный массив, который содержит не более 40 целых чисел. Найти сумму...

Определить среднее арифметическое тех элементов массива, которые больше заданного числа
Даны натуральные число x и целые числа a, а,…,а. Определить среднее арифметическое тех a, которые...

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от -2 до 10
Pascal ABC

1
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
30.10.2014, 16:17 2
Лучший ответ Сообщение было отмечено Vladislan09 как решение

Решение

Один из вариантов решений. Величина массива указана в константе, сам массив заполняется рандомно.
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
const
  N = 50;
var
  a: array[1..N] of integer;
  i,max,pos: integer;
  arif: real;
begin
  for i:=1 to N do 
    begin
      a[i]:=random(100);
      write(a[i], ' ');
    end;
  writeln();
  writeln('--------------------------');
  max:=a[i];
  pos:=1;
  for i:=1 to N do
    if a[i]>max then 
      begin
        max:=a[i];
        pos:=i;
      end;
    writeln('Max=', max, '; Position = ', pos);
    writeln();
    arif:=0;
    for i:=pos+1 to N do
      arif:=arif+a[i];
    writeln('Average = ', arif/(50-pos):2:2);
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2014, 16:17

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

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10
Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в...

Вычислить среднее арифметическое значение тех элементов одномерного массива,которые попадают в интервал от -2 до 10.
всем! Пожалуйста помогите решить задачу.Очень надо!ГОС! Вычислить среднее арифметическое значение...

Определить среднее арифметическое тех элементов массива, которые при делении на 4 дают остаток 1 или 3
Ввести двумерный массив A4*3 Определить в нём среднее арифметическое тех элементов, которые...

Найти среднее арифметическое всех элементов матрицы, кроме тех, которые на побочной диагонали
Создать и вывести на экран массив 6*6 целых чисел из диапазона .Найти среднее арифметическое всех...


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

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

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