[TpoH]

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

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

[mak-karpov]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

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]

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

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

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

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