процедуры и функции

[Ruslan57]

помогите решить задачу. даны элементы х1,х2...хn. найти максимальный и минимальный элементы из последовательности. сделать надо 2 способами через процедуры и через функции.

помогите если кто знает. хочу разобраться как делается.


(турбо паскаль)

[Базиля]

Через процедуру

program zad1;
type mas=array[1..100] of integer;
var a:mas;
min,max,i,n:integer;
procedure opred(a:mas; n:integer; var min,max:integer);
var i:integer;
begin
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then
max:=a[i];
if min>a[i] then
min:=a[i];
end;
end;
begin
writeln('введите кол-во элементов в последовательности');
readln(n);
for i:=1 to n do
begin
write('x',i,'=');
readln(a[i]);
end;
opred(a,n,min,max);
writeln('максимум последовательности=', max);
writeln('минимум последовательности=', min);
end.

с помощью п/п функция:

program zad1;
type mas=array[1..100] of integer;
var a:mas;
min,max,i,n:integer;
function opred1(a:mas; n:integer):integer;
var i:integer;
begin
max:=a[1];
for i:=1 to n do
if max<a[i] then
max:=a[i];
opred1:=max;
end;
function opred2(a:mas; n:integer):integer;
var i:integer;
begin
min:=a[1];
for i:=1 to n do
if min>a[i] then
min:=a[i];
opred2:=min;
end;
begin
writeln('введите кол-во элементов в последовательности');
readln(n);
for i:=1 to n do
begin
write('x',i,'=');
readln(a[i]);
end;
writeln('максимум=', opred1(a,n));
writeln('минимум=', opred2(a,n));
end.

Что-то вроде этого

[Ruslan57]

большое спасибо!!!