одномерный массив Опции

[Ksusha]

как мне найти сумму элементов массива между минимальным и максимальным значением? помогите пожалуйста, а то мне никак не сделать

[Ksusha]

можно было все гораздо проще найти

Код

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.

и все работает

А могли бы мне помочь ещё с одной задачкой:
дана последовательность x=(x1,x2,..xn). Сдвинте её циклически на k элементов влево.
ВООООБЩЕ не знаю как делать!!!!!!!!

Сообщение отредактировано: volvo - 18.10.2006 1:21