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

Точно не понял, какую сумму, но если тебе нужно найти самый большой элемент массива или самый маленький, то программа будет выглядеть примерно так:Program abc;var i:integer;    k:real;    b:array [1..10] of real;beginfor 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.