Подскажите как найти наибольшое и наименьшое из элементов массива....
Просто мне надо решить задачу:
Найдите сумму элементов массива расположенные между наименьшим и наибольшим элементами..
Наибольшее:
max:=a[1];
for i:=2 to n do
if max < a[i] then max:=a[i];
Наименьшее:
min:=a[1];
for i:=2 to n do
if min > a[i] then min:=a[i];
{дополнение к ответу AlaRic}
Полностью прога выглядит так:
CONST n=100;
VAR i,max,min,sum:integer;
a:array[1..n] of integer;
BEGIN
max:=a[1];
min:=a[1];
sum:=0;
for i:=2 to n do
begin
if max > a[i] then max:=a[i];
if min < a[i] then min:=a[i];
end;
for i:=min to max do
sum:=sum+a[i];
Writeln('Сумма равна = ',sum);
readln;
END.
В коде проги можно изменить значение переменной n, т.е. количество чисел в массиве a.
Вопрос: вводить массив не нужно? Раз уж писать расширенный код так писать весь!