Дан массив от 1 до 10 посчитать сумму max и min

Точно не понял, какую сумму, но если тебе нужно найти самый большой элемент массива или самый маленький, то программа будет выглядеть примерно так:

Program abc;

var i:integer;

k:real;

b:array [1 ... 10] of real;

begin

for i:=1 to 10 do read (b[i]) ;

for i:=1 to 10 do if b[i] > k then k:=b[i];

writeln ('max: ', k) ;

k:=b[1];

for i:=1 to 10 do if b[i] < k then k:=b[i];

writeln ('min: ', k) ;

end.