Дан массив а с количеством элементов n< =10 (элементы вводить с клавиатурынайдите сумму элементов этого массива , которые расположены между макс и мин элементами массива. заранее )

Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа var a: array[1..10] of тип i,n: integer; max, min, sum: тип begin write('введите количество элементов массива'); readln(n); for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =2 to n do if a[i]> max then max: =a[i]; for i: =2 to n do if a[i]> min then min: =a[i]; sum: =0; for i: =1 to n do if (a[i]> min) and (a[i]< max) then sum: = sum+a[i]; write('сумма элементов массива расположенных между максимальным и минимальным =  ', sum); end.

гиперте́кст (. hypertext) — термин, обозначающий систему из текстовых страниц, имеющих перекрёстные ссылки.

примерами гипертекста являются энциклопедии, компьютерные сети, веб-сайты, в которых можно переходить с одной страницы на другую и выполнять поиск по ключевым словам.

в компьютерной терминологии гипертекст — это текст, сформированный с языка разметки (например, html) с расчетом на использование гиперссылок.

в гипертекст — это книга, имеющая внутренние ссылки, то есть ссылки с одной части на другую.

Паскаль? const n=< требуемое число элементов> ; var a: array [1..n] of integer; i,i_max,i_min: byte; max,min,x: integer; begin writeln(' введите элементы массива через пробел'); for i: =1 to n do read(a[i]); max: =0; min: =1000; i_max: =0; i_min: =0; for i: =1 to n do begin if a[i]> max then begin max: =a[i]; i_max: =i; end; if a[i]< min then begin min: =a[i]; i_min: =i; end; end; x: =max; a[i_max]: =min; a[i_min]: =x; for i: =1 to n do write(a[i],'  '); readln; end.