Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Hanamad
0 / 0 / 0
Регистрация: 18.12.2013
Сообщений: 17
1

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

26.03.2014, 13:55. Просмотров 747. Ответов 3
Метки нет (Все метки)

Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами.
Формат выходных данных
Выведите в выходной файл искомое произведение с 3 знаками после десятичной точки или 0, если между максимальным и минимальным элементом нет других элементов.
Примеры:
Вход

5
-3.12 -5.25 2.5 1.2 6

Выход

3.000

Вход

2
1.24 5.36

Выход

0.000
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2014, 13:55
Ответы с готовыми решениями:

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

Произведение элементов массива, расположенных между максимальным и минимальным элементами
В одномерном массиве, состоящем из n вещественных элементов, вычислить: А....

Заменить нулями элементы между минимальным и максимальным элементами массива
Дан массив целых чисел из N элементов. Необходимо заменить нулями элементы...

Обнулить элементы массива, расположенные между его минимальным и максимальным элементами
Дан массив размера N.Обнулить элементы массива,расположенные между его...

Найти произведение элементов массива, расположенных между первым и вторым
Помогите, пожалуйста с функциями В одномерном массиве, состоящем из п...

3
CrazyD
0 / 0 / 0
Регистрация: 14.03.2014
Сообщений: 18
26.03.2014, 19:06 2
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
Program p1;
uses crt;
const n=10;
Var a:array[1..n] of real;
max,min,i:integer;sum:real;
begin
for i:=1 to n do
read(a[i]);
max:=1;
min:=1;
for i:=1 to n do
 Begin
  If a[i]>a[max] then max:=i;
  if a[i]<a[min] then min:=i;
  end;
if max>min then
for i:=min to max do
 sum:=sum+a[i] 
 else
for i:=max to min do
 sum:=sum+a[i];
writeln(sum);
readln
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4043 / 2660 / 2136
Регистрация: 22.11.2013
Сообщений: 7,469
29.03.2014, 23:38 3
Лучший ответ Сообщение было отмечено Hanamad как решение

Решение

Во-первых, речь о произведении, во-вторых, между" означает, что max и min в искомое произведение не входят, поэтому:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  n=100;
var
  a: array [1..n] of real;
  p: real;
  n, i, imin, imax: integer;
begin
  Assign(input,'in.txt'); Assign(output,'out.txt');
  Reset(input); Rewrite(output);
  ReadLn(n); imin:=1; imax:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if a[i]<a[imin] then imin:=i;
    if a[i]>a[imax] then imax:=i;
  end;
  p:=1;
  if imin<imax then
    for imin+1 to imax-1 do p:=p*a[i]
  else 
    for imin+1 downto imax-1 do p:=p*a[i];
  if abs(imin-imax)<=1 then p:=0;
  WriteLn(p:0:3) ;
end.
1
Hanamad
0 / 0 / 0
Регистрация: 18.12.2013
Сообщений: 17
30.03.2014, 09:11  [ТС] 4
bormant, спасибо большое) правда я долго думала почему не работает оказалось,что забыла закрыть программу) (close ...).это если кому то еще потребуется
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2014, 09:11

Выведите все четные элементы, кратные 5 и 4, расположенные между максимальным и минимальным нечетными элементами
В одномерном массиве, состоящем из n вещественных элементов: 1) выведите на...

Вычислить сумму элементов массива, расположенных между первым и последним нулевыми элементами
В одномерном массиве , состоящем из n целочисленных элементов, вычислить сумму...

Получить новый массив их элементов данного массива, расположенных между максимальным и минимальным элементами
Дан массив действительных чисел. Получить новый массив их элементов данного...


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

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

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