Информатика, помогите сделать

Question

Const nmax=100; 
Type Vector=array [ 1... nmax ] of real; 
 Напишите функцию, которая возвращает: 
1) Сумму элементов некоторого массива типа VECTOR 
2)среднее арифметическое элементов данного массива 
3)максимальный элемент 
4)минимальный элемент

Олечка Золина · Accepted Answer

program srmnma; 
Cоnst nmax=100; 
Type Vector=array [ 1... nmax ] of real; 
var arr: vector; 
 
function srznArr(var m: vector): real; 
var i: integer; 
 res: real; 
 begin 
 for i:=0 to nmax-1 do 
 res:=res+m; 
 summArr:=res/nmax; 
end; 
 
function summArr(var m: vector): real; 
var i: integer; 
 res: real; 
 begin 
 for i:=0 to nmax-1 do 
 res:=res+m; 
 summArr:=res; 
end; 
 
function maxArr(var m: vector): real; 
var i: integer; 
 k:real; 
 begin 
 k:=m[0]; 
 for i:=0 to nmax-1 do 
 if m>k then k:=m; 
 maxArr:=k; 
end; 
 
function minArr(var m: vector): real; 
var i: integer; 
 k:real; 
 begin 
 k:=m[0]; 
 for i:=0 to nmax-1 do 
 if arr<k>; 
 maxArr:=k; 
end;

begin 
{ТУТ ЗАПОЛНИТЕ МАССИВ} 
 writeln('среднее арифмитичееское'); srznArr(arr); 
writeln('сумаа'); summArr(arr); 
writeln('минемальный элемент'); minArr(arr); 
writeln('максимальный элемент'); maxArr(arr); 
readln; 
end.

Вот что то в этом роде, код писал срузу тут без проверки.