[mak-karpov]

Код:

program mass;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a : array of char;
    i,j : integer;
    r : char;
begin
  write('Vvedite razmernost massiva :');
  readln(i);
  setlength(a,i);
  for i := 0 to length(a)-1 do begin
    write('Vvedite element massiva #',i,': ');
    readln(r);
    a[i] := r;
  end;
  r := #0;
  for i := 0 to length(a)-1 do
    if ord(r) < ord(a[i]) then r := a[i];
  for i := 0 to length(a)-1 do
    if r=a[i] then break;
  writeln('Maximalnoe znachenie : ', r, '(nomer ', i,')');
  r := a[length(a)-1];
  j := 0;
  for i := 0 to length(a) - 1 do
    if a[i] = r then inc(j);
  writeln('Kolichestvo simvolov, ravnyh poslednemu :',j-1);
  j := 0;
  for i := 0 to length(a) - 1 do
    j := j + ord(a[i]);
  writeln('Srednee arifmeticheskoe :', j / length(a));
  readln;
end.

А самому подумать сложно было? Программа пишется за 5 минут