IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Подскажите как найти наибольшое и наименьшое
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


Подскажите как найти наибольшое и наименьшое из элементов массива....
Просто мне надо решить задачу:
Найдите сумму элементов массива расположенные между наименьшим и наибольшим элементами..


--------------------
Заранее спасибо
С Ув.Port111
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Наибольшее:
max:=a[1];
for i:=2 to n do
if max < a[i] then max:=a[i];

Наименьшее:
min:=a[1];
for i:=2 to n do
if min > a[i] then min:=a[i];
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 12

Репутация: -  0  +


{дополнение к ответу AlaRic}
Полностью прога выглядит так:
CONST n=100;
VAR  i,max,min,sum:integer;
       a:array[1..n] of integer;
BEGIN
  max:=a[1];
  min:=a[1];
  sum:=0;
  for i:=2 to n do
  begin
           if max > a[i] then max:=a[i];
           if min < a[i] then min:=a[i];  
  end;
  for i:=min  to max do
     sum:=sum+a[i];
  Writeln('Сумма равна = ',sum);
  readln;
END.
В коде проги можно изменить значение переменной n, т.е. количество чисел в массиве a.


--------------------
BIG_plus
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 5

Репутация: -  0  +


Цитата
{дополнение к ответу AlaRic}
Полностью прога выглядит так:
CONST n=100;
VAR  i,max,min,sum:integer;
       a:array[1..n] of integer;
BEGIN
  max:=a[1];
  min:=a[1];
  sum:=0;
  for i:=2 to n do
  begin
           if max > a[i] then max:=a[i];
           if min < a[i] then min:=a[i];  
  end;
  for i:=min  to max do
     sum:=sum+a[i];
  Writeln('Сумма равна = ',sum);
  readln;
END.
В коде проги можно изменить значение переменной n, т.е. количество чисел в массиве a.


Я бы немного добавил, если я правидльно понял вопрос,  две переменные

VAR  i,max,min,maxi,mini,sum:integer;
       a:array[1..n] of integer;
BEGIN
  max:=a[1];
  min:=a[1];
  sum:=0;
  for i:=2 to n do
  begin
           if max > a[i] then maxi:=i;  man:=a[i];
           if min < a[i] then mini:=i;  min:=a[i];
  end;
       if maxi<mini
     to begin
            i:=maxi; maxi:=mini; mini:=i;          
               end;
  for i:=mini  to maxi do
     sum:=sum+a[i];
  Writeln('Сумма равна = ',sum);
  readln;
END.


Может кто что добавит, а то я все позабывал ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Вопрос: вводить массив не нужно? Раз уж писать расширенный код так писать весь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.04.2017 15:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"