Дан массив от 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.