Найти сумму элементов массива, расположенных между минимальным и максимальным элементом

@CyberLady · Регистрация: 23.03.2011

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

Здравствуйте помогите решить вот эту задачу:

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

@KaiTheCat · 22.04.2011, 20:07

Pascal

var 
  a: array[1..100] of integer;
  i,n,min,max,s: integer;
Begin
  randomize;
  readln(n);
  for i:=1 to n do begin
    a[i]:=random(100)-50;
    write(a[i]:4); end;
  writeln;
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[i]<a[min] then min:=i;
      if a[i]>a[max] then max:=i;
    end;
  for i:=min to max do s:=s+a[i];
  for i:=max to min do s:=s+a[i]; 
  writeln(s);
  readln
End.

@CyberLady · 22.04.2011, 20:26 **[ТС]**

Спасибо огромное

@CyberLady 1 / 1 / 0 Регистрация: 23.03.2011 Сообщений: 134
		1
	Найти сумму элементов массива, расположенных между минимальным и максимальным элементом 22.04.2011, 19:45. Показов 2878. Ответов 2 Метки нет (Все метки) Здравствуйте помогите решить вот эту задачу: Дана последовательность из N различных чисел. Найти сумму элементов, расположенных между минимальным и максимальным элементом (включая их). 0

@CyberLady 1 / 1 / 0 Регистрация: 23.03.2011 Сообщений: 134
	22.04.2011, 20:26 [ТС]	3
	Спасибо огромное 0

Опции темы

Найти сумму элементов массива, расположенных между минимальным и максимальным элементом

Решение