[TpoH]

Нужно, что бы пользователь вводил символьный одномерный массив, а затем найти:
1.номер и значение элемента с максимальным кодом.
2.кол-во символов равных последнему
3.Среднее арифметическое всех кодов.*

Помогите плз, кто знает...

[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 минут

[TpoH]

Так это код из паскаля, как я понял......что-то он не похож на код делфи)
В делфи это через стридгрид как-то делается и радио группу для выбора операций...

[Страдалецъ]

Так это код из паскаля, как я понял......что-то он не похож на код делфи)
В делфи это через стридгрид как-то делается и радио группу для выбора операций...

И где в первоначальном вопросе ваши стрингриды и радиогруппы?
Вам дали ответ на Дельфи, без визуального интерфейса - как и просили.