Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 17.11.2014
Сообщений: 9
1

Обработка и модификация одномерных числовых массивов

17.11.2014, 07:57. Показов 1375. Ответов 2
Метки нет (Все метки)

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

Обработка одномерных массивов
Переписать все положительные элементы массива BB(N) подряд в массив ZZB.(Написать программу с...

Обработка одномерных массивов
дан массив а(20) найти сумму его положительных элементов лежащих перед наименьшим элементом этого...

Обработка одномерных массивов
Составить программу вычисления, W=B+A/C+1. A - сумма положительных элементов массива; B -...

Обработка одномерных массивов
Если у вектора b (b1, b2, …, bN) есть компонента со значением, равным q, то переменной r присвоить...

2
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
17.11.2014, 10:59 2
Лучший ответ Сообщение было отмечено Serega_Emel96 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  i:integer;
begin
  var a:= new list<integer>;  
  for i:=0 to 99 do begin a.Add(random(1000));write(a[i]:6);end;
  writeln;
  var imin:integer:=a.IndexOf(a.Min());
  var imax:integer:=a.IndexOf(a.Max());
  var s:integer:=0;
  if imin<imax then for i:=imin to imax do s:=s+a.Item[i] 
    else for i:=imax to imin do s:=s+a.Item[i];
  writeln('<S>=',s/abs(imin-imax));  
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,643
Записей в блоге: 7
17.11.2014, 12:13 3
Joy, все проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{$reference System.Core.dll}
uses
  System.Collections.Generic, System.Linq;
begin
  var a := new list<integer>;  
  for var i: integer := 0 to 99 do a.Add(random(1000));
  
  foreach x: integer in a do write(x:6);
  writeln;
  var imin: integer := a.IndexOf(a.Min());
  var imax: integer := a.IndexOf(a.Max());
  
  writeln(a.GetRange(Min(imin, imax), Abs(imax - imin) + 1).Average());
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2014, 12:13

Обработка элементов одномерных массивов. Вычисление производных
Помогите пожалуйста это сделать. Составить блок-схему алгоритма и программу в среде PASCAL для...

Обработка и модификация одномерных числовых массивов
Вводится последовательность символов. Напечатать те сим-волы, которые не вошли в последовательность.

Модификация одномерных массивов
Составить блок – схему и разработать алгоритм решения следующих задач: Ввести одномерный массив...

Модификация одномерных массивов
Ввести одномерный массив A из N элементов. Все элементы, стоящие на чётных позициях, с модулем...

Обработка числовых массивов
Определить минимальный элемент двухметрного массива и с помощью перестановок строк и столбцов...

Обработка числовых и символьных массивов
помогите, плиз, решить 2 задачки - очень надо( очень срочно. совсем не знаю, что делать(( тема:...


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

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

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