[Bon4BruBon4]

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

[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;

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

[Thrasher]

2 Ama
Ну в условии задачи было сказано - целые числа.

2 Bon4BruBon4

Заменить везде real на integer

[xchrom]

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

Заменить везде real на integer

кроме естественно среднего арифметического

[AlexSku]

Мой ответ на похожий вопрос (без цикла):
http://www.delphisources.ru/forum/showthread.php?t=3652