Сума найбільшого та найменшого

Задано одновимірний масив цілих чисел. Визначити суму найменшого та найбільшого елементів масиву.

Вхідні дані

У першому рядку задано кількість елементів масиву h (h ≤ 100). У другому рядку через пропуск задано самі елементи масиву, значення кожного з яких за модулем не перевищує 100.

Вихідні дані

Вивести суму найменшого та найбільшого елементів масиву.

Вхідні дані

4

1 2 3 4

Вихідні дані

5

program suma naybilchogo I naymenchogo;

var a : array[1..100] of integer;

i,j,max,min,n : integer;

begin

readln (n);

for i:=1 to n do

read(a[i]);

max:=a[1];

min:=a[1];

for i:=1 to n do begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

writeln (min+max);

end.