[Ama]

Сообщение от Bon4BruBon4

задача:
Составить программу для обработки массива содержащего 10 целых чисел. Определить:
1. сумму элементов массива;
2. среднее арифметическое элементов массива;
3. максимальный элемент массива.
Выполнение каждого логического блока программы оформить в виде отдельных процедур.

1.
function Sum(Arr: Тип_массива): real;
var i: integer;
begin
for i:= 0 to High(Arr) do Result:= Result + (Arr)[i];
end;

2.
function Sredn(Arr: Тип_массива): real;
begin
Result:= Sum(Arr)/(High(Arr) + 1);
end;

3.
function MaxVal(Arr: Тип_массива): real;
var i: integer;
begin
Result:= Arr[0];
for i:= 1 to High(Arr) do
if Result < Arr[i] then Result:= Arr[i];
end;

Вот и все а еще надо объявить тип:
type Тип_массива = array[0..9] of real;

В принципе задача "детская".