помогите пожалуйста, а то мне никак не сделать 
Полная версия: одномерный массив
как мне найти сумму элементов массива между минимальным и максимальным значением? помогите пожалуйста, а то мне никак не сделать
помогите пожалуйста, а то мне никак не сделать
Как найти номер минимального и максимального значения знаешь ? Если найдешь их дальше все не сложнее, в цикле от номера минимального значения до номера максимального суммируешь элементы и все !
Воспользуйся поиском по форуму, много задач решено на массивы, ну и + FAQ : Массивы, матрицы
Воспользуйся поиском по форуму, много задач решено на массивы, ну и + FAQ : Массивы, матрицы
номера элементов нашла, а суммировать не знаю как... 
s := 0; // в начале обнуляем сумму
for i := nMin to nMax do // цикл от номера минимального элемента (nMin) до номера максимального (nMax)
s := s + x[i]; // суммируем
for i := nMin to nMax do
что то в этой строчке не так, пишет что ошибка....
Выложи полностью свой код, переношу тему в раздел "Задачи" ...
вот что я сделала, дальше не знаю как:
Код
Program cool;
uses crt;
Var
x: array [1..100] of real;
i,n :integer;
max, min,s,nmin, nmax:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
writeln('vvedite znachenie n');
for i:=1 to n do
readln(x[i]);
max:=x[1];
nmax:=1;
for i:=1 to n do
if x[i]>max then
begin
max:=x[i];
nmax:=i
end;
min:=x[1];
nmin:=1;
for i:=1 to n do
if x[i]<min then
begin
min:=x[i];
nmin:=i;
end;
writeln('max=',max:4:4,' nmax=', nmax:4:4);
writeln('min=',min:4:4,' nmin=', nmin:4:4);
writeln('naidem summu znachenii mezhdu min i max' );
s:=0;
writeln(s);
readkey;
uses crt;
Var
x: array [1..100] of real;
i,n :integer;
max, min,s,nmin, nmax:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
writeln('vvedite znachenie n');
for i:=1 to n do
readln(x[i]);
max:=x[1];
nmax:=1;
for i:=1 to n do
if x[i]>max then
begin
max:=x[i];
nmax:=i
end;
min:=x[1];
nmin:=1;
for i:=1 to n do
if x[i]<min then
begin
min:=x[i];
nmin:=i;
end;
writeln('max=',max:4:4,' nmax=', nmax:4:4);
writeln('min=',min:4:4,' nmin=', nmin:4:4);
writeln('naidem summu znachenii mezhdu min i max' );
s:=0;
writeln(s);
readkey;
Цитата(Ksusha @ 17.10.2006 20:29) 
max, min,s,nmin, nmax:real;
и как ты себе представляешь элемент массива с номером, допустим, 1.6? или 2.987?
из-за этого и ошибка.
ну и еще... не ошибки, но...
почему нельзя искать минимум и максимум одним циклом?
зачем счетчик устанавливать с 1, когда можно начинать с 2?
ой, ну да ошиблась 
вот така все равно не то считает
вот така все равно не то считает
выкладывай исправленный код. я не ясновидящая!
то, что ты выложила, сумму считать не будет ВООБЩЕ.
даст тебе только выведение нуля.
как считать - тебе написали выше.
то, что ты выложила, сумму считать не будет ВООБЩЕ.
Код
s:=0;
writeln(s);
writeln(s);
даст тебе только выведение нуля.
как считать - тебе написали выше.
s:=0;
for i:=nmin to nmax do
s:=s+x[i];
writeln(s);
считает сумму всех значений, а мне нужно исключая max и min...
for i:=nmin to nmax do
s:=s+x[i];
writeln(s);
считает сумму всех значений, а мне нужно исключая max и min...
Код
s:=0;
for i:=nmin+1 to nmax-1 do
s:=s+x[i];
writeln(s);
кстати, оно работает, только если минимум стоит до максимума.
СПАСИБОЧКИ, большое 
можно было все гораздо проще найти
и все работает
А могли бы мне помочь ещё с одной задачкой:
дана последовательность x=(x1,x2,..xn). Сдвинте её циклически на k элементов влево.
ВООООБЩЕ не знаю как делать!!!!!!!!
Код
Program cool;
uses crt;
Var
x: array [1..100] of real;
i,n :integer;
max, min,s:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
writeln('vvedite znachenie n');
for i:=1 to n do
readln(x[i]);
max:=x[1];
for i:=1 to n do
if x[i]>max then
max:=x[i];
min:=x[1];
for i:=1 to n do
if x[i]<min then
min:=x[i];
writeln('max=',max:4:4);
writeln('min=',min:4:4);
writeln('naidem summu znachenii mezhdu min i max' );
s:=0;
for i:=1 to n do
if x[i]<>min then
if x[i]<>max then
s:=s+x[i];
writeln(s:4:4);
readkey;
end.
uses crt;
Var
x: array [1..100] of real;
i,n :integer;
max, min,s:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
writeln('vvedite znachenie n');
for i:=1 to n do
readln(x[i]);
max:=x[1];
for i:=1 to n do
if x[i]>max then
max:=x[i];
min:=x[1];
for i:=1 to n do
if x[i]<min then
min:=x[i];
writeln('max=',max:4:4);
writeln('min=',min:4:4);
writeln('naidem summu znachenii mezhdu min i max' );
s:=0;
for i:=1 to n do
if x[i]<>min then
if x[i]<>max then
s:=s+x[i];
writeln(s:4:4);
readkey;
end.
и все работает
А могли бы мне помочь ещё с одной задачкой:
дана последовательность x=(x1,x2,..xn). Сдвинте её циклически на k элементов влево.
ВООООБЩЕ не знаю как делать!!!!!!!!
Цитата
и все работает
Уверена?Введи 6 элементов:
2, 2, 5, 4, 2, 1
и посмотри, равен ли результат 6, как положено. А потом решай, ЧИТАТЬ ли внимательно все, что тебе пишут, или не надо...
P.S.
Следующее задание было решено - пользуйся поиском. Одна тема - один вопрос!
а почему вдруг должно равняться 6???
2+2+4+2=10!!!! так у меня и получается!
2+2+4+2=10!!!! так у меня и получается!
Это еще что за бред?
s:=0;
for i:=1 to n do
if x[i]<>min then
if x[i]<>max then
s:=s+x[i];
???
ради чего тогда искать положение минимального и максимального эл-тов???
Код
s:=0;
for i:=1 to n do
if x[i]<>min then
if x[i]<>max then
s:=s+x[i];
???
ради чего тогда искать положение минимального и максимального эл-тов???
Цитата(мисс_граффити @ 17.10.2006 22:55)
ради чего тогда искать положение минимального и максимального эл-тов???
ну так задача звучит "найдите сумму элементов расположенных между максимальным и минимальным элементами" поэтому их надо искать, что бы исключить из общей суммы!а если ты имеешь в виду, зачем искать их индекс, так можно и не искать!я это из программы и убрала... к тому же вроде бы все правильно получается....
зашибись.
ты считаешь сумму всех элементов, кроме минимального и максимального, а не сумму элементов, расположенных между минимальным и максимальным.
разницы не видишь?
кстати, даже это ты делаешь странно.
введи последовательность 1,1,2,5,5.
У тебя сумма будет 2... А должна быть?
ты считаешь сумму всех элементов, кроме минимального и максимального, а не сумму элементов, расположенных между минимальным и максимальным.
разницы не видишь?
кстати, даже это ты делаешь странно.
введи последовательность 1,1,2,5,5.
У тебя сумма будет 2... А должна быть?
ну может быть.... вот тока все равно, так что бы все нормально считалось не получается.... что бы не было разницы где стоит min или max значение.....
а ты рассматривай 2 случая: первым стоит мин или первым макс.
ну да, спасибки! все получилось. считает теперь между, а не исключает 
круто.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.