Цитата:
Сообщение от Sergei47
Дана последовательность из 100 различных целых чисел.
Найти сумму чисел этой последовательности , расположенных между max и min числами. В сумму включить оба этих числа.
|
Код:
VAR
A:ARRAY[1..100] of INTEGER;
i,i1,i2,i3,i4,Sum,Min,Max:INTEGER;
BEGIN
{ Ввод массива }
{ ... }
Sum:=0;
Min:=32000;
Max:=-32000;
FOR i:=1 TO 100 DO
BEGIN
IF A[i]<Min THEN
BEGIN
Min:=A[i];
i1:=i;
END;
IF A[i]>Max THEN
BEGIN
Max:=A[i];
i2:=i;
END;
END;
Sum:=0;
IF i1<i2 THEN
BEGIN
i3:=i1;
i4:=i2;
END ELSE
BEGIN
i3:=i2;
i4:=i1;
END;
FOR i:=i3 TO i4 DO
Sum:=Sum+A[i];
WriteLn('Sum= ', Sum);
ReadLn;
END.
P.S. Обратите внимание на исправление ошибки в задаче про матрицу.