program z7_14;
var
A: array [1..100] of integer;
n,i,max,maxn : integer;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' элемент массива ');
readln(A[i]);
end;
max:=A[1];
maxn:=1;
for i:=1 to n do
if A[i]>max then
begin
max:=A[i];
maxn:=i;
end;
writeln('Максимальный элемент массива ',max);
writeln('Порядковый номар максимального элемента ',maxn);
End.