Массив. Найти произведение элементов массива, располагающихся между max и min элементами

@victory1day · Регистрация: 13.02.2012

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

В общем есть одномерный массив, который состоит из вещественных элементов. Нужно найти произведение элементов массива, располагающихся между max и min элементами. В файле есть число n(кол-во элементов массива), а на следующей строчке сам массив. Проблема в том, как считать массив из файла? Ведь у нас в начале файла n.

@Puporev · 26.04.2012, 13:28

Pascal

reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);

@victory1day · 26.04.2012, 14:12 **[ТС]**

Спасибо! Теперь смог решить!

@victory1day · 28.04.2012, 22:14 **[ТС]**

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

Я написал, но тут всего лишь часть. Но алгоритм я думаю использовать такой : //Алгоритм:
//Сначала в одном цикле надо найти номера минимального и максимального элемента,
//а затем во втором цикле найти произведение между мин и макс. элементами
//и выделить элементы между ними в новый массив
А вот код

Pascal

program mas_1_1;
var f,g:text;
    n,i:integer;
    min,max:real;
    s: array[1..100] of real;
begin
     Assign (f, 'input.txt');reset(f);
     Assign (g, 'output.txt');Rewrite(g);
min:=0;
max:=0;
read(f,n);
{for i:=1 to n do  begin
read(f,s[i]);     end;}
for i:=1 to n do begin
read(f,s[i]); if s[i]>max then max:=s[i];
           if s[i]<min then min:=s[i];
end;
{for min(i?) to max do proiz:=i*i;
for i:=1 to n do begin
write(' ',s[i]);end;
write(min,max);
if .. then write(g,proiz:0:3)
      else write(g,0);}
close(g);close(f);
end.

Добавлено через 2 часа 36 минут
Чуваки,выручайте !

Добавлено через 1 час 54 минуты
Хееееееелп

@victory1day · 29.04.2012, 17:59 **[ТС]**

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

Я написал, но тут всего лишь часть. Но алгоритм я думаю использовать такой : //Алгоритм:
//Сначала в одном цикле надо найти номера минимального и максимального элемента,
//а затем во втором цикле найти произведение между мин и макс. элементами
//и выделить элементы между ними в новый массив
А вот код

Pascal

program mas_1_1;
var f,g:text;
    n,i:integer;
    min,max:real;
    s: array[1..100] of real;
begin
     Assign (f, 'input.txt');reset(f);
     Assign (g, 'output.txt');Rewrite(g);
min:=0;
max:=0;
read(f,n);
{for i:=1 to n do  begin
read(f,s[i]);     end;}
for i:=1 to n do begin
read(f,s[i]); if s[i]>max then max:=s[i];
           if s[i]<min then min:=s[i];
end;
{for min(i?) to max do proiz:=i*i;
for i:=1 to n do begin
write(' ',s[i]);end;
write(min,max);
if .. then write(g,proiz:0:3)
      else write(g,0);}
close(g);close(f);
end.

Добавлено через 5 часов 20 минут
Хочу переделать каким - то таким образом , но нифига не получается

То есть переписать от min до max элементы в новый массив.

Pascal

program mas_1_1;
var f,g:text;
    n,i:integer;
    min,max,sum:real;
 
    s: array[1..100] of real;
    a: array[1..100] of real;
begin
     Assign (f, 'input.txt');reset(f);
     Assign (g, 'output.txt');Rewrite(g);
min:=0;
max:=0;
read(f,n);
 
for i:=1 to n do begin
read(f,s[i]); if s[i]>max then max:=s[i];
           if s[i]<min then min:=s[i];
end;
while (s[i]>=min)or (s[i]<>max) do
s[i]:=a[i];
 
 
sum:=0;
if max>min then
    for i:= min to max do
      sum:=sum+a[i];
      writeln('summa=',s);
 
for i:=1 to 10 do
write(a[i]);
close(g);close(f);
end.

@victory1day · 01.05.2012, 16:28 **[ТС]**

Ребят вот еще надумал, нашел номера min,max, но теперь бьюсь головой как организовать цикл.

Pascal

program mas_1_1;
var f,g:text;
    n,i:integer;
    min,max,sum:real;
 
    s: array[1..100] of real;
    a: array[1..100] of real;
begin
     Assign (f, 'input.txt');reset(f);
     Assign (g, 'output.txt');Rewrite(g);
min:=0;
max:=0;
read(f,n);
 
for i:=1 to n do begin
read(f,s[i]); if s[i]>max then max:=s[i];
           if s[i]<min then min:=s[i];
end;
while (s[i]>=min)or (s[i]<>max) do
s[i]:=a[i];
 
 
sum:=0;
if max>min then
    for i:= min to max do
      sum:=sum+a[i];
      writeln('summa=',s);
 
for i:=1 to 10 do
write(a[i]);
close(g);close(f);
end.

@victory1day 1 / 1 / 0 Регистрация: 13.02.2012 Сообщений: 25
		1
	Массив. Найти произведение элементов массива, располагающихся между max и min элементами 26.04.2012, 13:18. Показов 2579. Ответов 5 Метки нет (Все метки) В общем есть одномерный массив, который состоит из вещественных элементов. Нужно найти произведение элементов массива, располагающихся между max и min элементами. В файле есть число n(кол-во элементов массива), а на следующей строчке сам массив. Проблема в том, как считать массив из файла? Ведь у нас в начале файла n. 0

@victory1day 1 / 1 / 0 Регистрация: 13.02.2012 Сообщений: 25
	26.04.2012, 14:12 [ТС]	3
	Спасибо! Теперь смог решить! 0

	01.05.2012, 16:28

Опции темы