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

@Serega_Emel96 · Регистрация: 17.11.2014

Студворк — интернет-сервис помощи студентам

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

@Joy · 17.11.2014, 10:59

Pascal

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.

@volvo · 17.11.2014, 12:13

Joy, все проще:

Pascal

{$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.

@Serega_Emel96 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 11
		1
	Обработка и модификация одномерных числовых массивов 17.11.2014, 07:57. Показов 1467. Ответов 2 Метки нет (Все метки) Дана последовательность из 100 различных целых чисел. Найти среднее арифметическое значение чисел, расположенных между максимальным числом и минимальным числом (в сумму включить и оба этих числа). 0

	17.11.2014, 12:13

Опции темы

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

Решение