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

06.01.2014, 19:15. **Показов** 1602. **Ответов** 2

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

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

@Puporev · 07.01.2014, 08:57

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,imn,imx,x:byte;
    p:real;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Номер минимального=',imn,' минимальный=',a[imn]:0:2);
writeln('Номер максимального=',imx,' максимальный=',a[imx]:0:2);
if abs(imn-imx)<=1 then
 begin
  write('Между минимальным и максимальным нет элементов, P=0');
  readln;
  exit
 end;
if imx<imn then
 begin
  x:=imn;
  imn:=imx;
  imx:=x;
 end;
p:=1;
for i:=imn+1 to imx-1 do
p:=p*a[i];
write('P=',p:0:2);
readln
end.

@Николайчик · 02.12.2014, 19:03

В Delphi можно код пожалуйста если возможно)) Заранее спасибо!

AndSem
		1
	Найти произведение элементов массива, расположенных между максимальным и минимальным элементами 06.01.2014, 19:15. Показов 1602. Ответов 2 Метки нет (Все метки) Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами. Помогите пожалуйста.

@Николайчик 0 / 0 / 1 Регистрация: 23.11.2014 Сообщений: 136
	02.12.2014, 19:03	3
	В Delphi можно код пожалуйста если возможно)) Заранее спасибо! 0

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

Решение