uses crt;
type Vector=array[1..25] of Integer;
procedure MaxElem(V: Vector; M: Integer;var max:Integer);forward;
procedure PrnAr(var V: Vector; M: Integer;max:integer);
var I: Integer;
begin
for I:=1 to M do
write(V[I]:5);
writeln;
MaxElem(v,m,max);
write('Max.elem=',max);
end;
procedure MaxElem;
var I: Integer;
begin
max:=V[1];
for I:=2 to M do
if V[I]>max then max:=V[I];
end;
var A: Vector;
I, N,mx: Integer;
begin
clrscr;
write('Kol. elementov: ');
readln(N);
for I:=1 to N do
begin
write('(', I, ') = ');
readln(A[I]);
end;
writeln('Massiv: ');
PrnAr(A, N,mx);
readln;
end.