Здравствуйте, Sanq4!
Задача с пояснениями в прилождении.
Будут вопросы, <b>обращайтесь в минифорум</b>.
<i>Удачи!!!</i>


Приложение:
const {кол-во элементов в последовательности} N=10;var {последовательность из N элементов} a: array [1..N] of real; {Максимальный и минимальный элемент} max, min: real; {Счетчик для For} i: integer;begin {Включаем генератор случайных чисел} randomize; {Перебираем весь массив a} for i:=1 to N do begin {Приравниваем текущий элемент массива к случайному числу} a[i]:=random(50)-25+random; {выводим это число} write(a[i]:8:3); end; {Инициируем значения максимального и минимального числа} max:=a[1]; min:=a[1]; {В цикле перебираем весь массив и ищем макс. и мин. число} for i:=1 to N do {если тек. эл. больше максимального, изменяем значение максимального} if a[i]>max then max:=a[i] {Иначе} else {Если тек. эл. меньше, то изменяем минимальный} if a[i]<min then min:=a[i]; writeLn; {Выводим сумму} Write(‘Max + Min = ‘, max+min:6:3); readln;end.

Здравствуйте, Sanq4!
А я бы не стала решать такую задачу через массив. Зачем хранить N чисел, если мы используем только две из них? Можно считывать их по ходу в одну переменную и сравнивать с текущим минимальным и текущим максимальным, переписывая эти переменные при необходимости. Такой вариант решения в приложении.

Приложение:
Var a, min, max: real;n, i: integer;begin readln (n); {Считываем число элементов} readln (a); {Считываем первый элемент} min:= a; max:=a; {И инициализируем им min и max} for i:=1 to n-1 do {Считываем остальные элементы в цикле} begin readln (a); if (a<min) then min:=a; {Если попадается меньший, чем min, переписываем} if (a>max) then max:=a; {Если попадается больший, чем max, переписываем} end; writeln (‘Summa:‘, (max+min):5:3); {Выводим сумму с форматированием (пять символов под целую часть, 3 под дробную} readln; {Ждём реакции пользователя}end.