Найти сумму чисел , расположенных между минимальным и максимальным элементами включительно - Turbo Pascal

Формулировка задачи:

Дан произвольный массив из 40 элементов. Найти сумму чисел , расположенных между минимальным и максимальным элементами включительно. Написал программу.
Program k61;
var
i,max,min,s:integer;
x:array [1..40] of integer;
begin
Randomize;
For i:= 1 to 40 do x[i]:=random(10);
For i:=1 to 40 do write(x[i], ' ');
max:=x[1];
For i:=1 to 40 do
If x[i]>max then max:=x[i];
min:=x[1];
For i:=1 to 40 do
If x[i]<min then min:=x[i];
s:=0;
For i:=min to max do
s:=s+i;
WriteLn ('max= ',max, 'min= ',min, 's= ',s);
end.
Но она неверно воспринимает сумму чисел! Т.е при проверке даже не понимаю, откуда берётся данная сумма. Потом друг переделал
Program k61;
var
i,max,min,s:integer;
x:array [1..40] of integer;
begin
Randomize;
For i:=1 to 40 do x[i]:=random(10);
For i:=1 to 40 do write(x[i], ' ');
max:=x[1];
For i:=1 to 40 do
If x[i]>max then max:=x[i];
min:=x[1];
For i:=1 to 40 do
If x[i]<min then min:=x[i];
s:=0;
for i:=1 to 40 do if (x[i]>=min) and (x[i]<=max) then s:=s+x[i];
WriteLn ('max=',max, ' min=',min, ' s=',s);
end.
. Но и опять не то - опять та же херня. Помогите, пожалуйста! Я не силён в програмировании. А ещё хуже чувствую себя, когда заставляют делать блок-схемы по кодам. Если не затруднит, сделайте и блок-схемку. Буду очень признателен!

Код к задаче: «Найти сумму чисел , расположенных между минимальным и максимальным элементами включительно - Turbo Pascal»

textual
Program Lab8;
var
s,t,a,b,c,z:real;
Function F(x,y:real):real;
Begin
F:=((sqr(x)+2*y+3)/6);
end;
Function P(i:integer):real;
begin
If i=1 then P:=sin(0.5) else P:=z*sqr(p(i-1))+p(i-1)+2;
end;
Function H(i:integer):real;
begin
If i=1 then H:=cos(0.5) else H:=3*h(i-1)/(2*z);
end;
Begin
WriteLn ('BBeguTe s,t 4epe3 ENTER');
ReadLn (s,t);
a:=F(s,t);
b:=F(sqrt(s),sqrt(t));
WriteLn ('a= ',a:5:2);
WriteLn ('b= ',b:5:2);
ReadLn;
WriteLn ('BBeguTe z');
ReadLn (z);
c:=sqrt(abs(p(4)-h(6)));
WriteLn ('c= ',c:5:2);
ReadLn;
end.

14   голосов, оценка 4.214 из 5


СОХРАНИТЬ ССЫЛКУ