Написать функцию, которая возвращает символ строки с самой высокой частотой встречаемости. прототип функции char function_name (char *s проверить работу функции на строке, введенной с клавиатуры. реализовать вывод результата

#include < iostream> char function_name(char *s){    char arr[256]{0};           for (char * p = s; *p; ++p)        arr[*p+128]++;     char * max = arr;     for (char * p = arr; p < (arr + 256); ++p){        if (*p > *max) max = p;     }    return (max - arr) - 128; }int main(){    char buff[255];     std: : cin.getline(buff,255);     std: : cout < < buff < < " : " < < function_name(buff);     return 0; }

Const m=5; n=4; var a: array[1..m,1..n] of integer; i,j,max: integer; begin   randomize;   for i: =1 to m do     for j: =1 to n do a[i,j]: =random(201)-100;   max: =0;   for i: =1 to m do     for j: =1 to n do       if a[i,j]< max then max: =a[i,j];   if max=0 then writeln('в матрице нет отрицательных элементов.')   else a[(m div 2)+1,(n div 2)+1]: =max;   for i: =1 to m do         //вывод матрицы. необязательно.     begin     for j: =1 to n do write(a[i,j]: 4);     writeln;     end; end.

1) var a: string;     i, o: integer;     p: real; begin       readln(o);       a : = inttostr(o);       for i : = 1 to length(a) do         p : = p + strtoint(a[i]);       if (sqr(o) = p*p*p) then writeln('true')         else writeln('false'); end.2)var a: string;     i, o, p: integer; begin      readln(o);       a : = inttostr(o);       for i : = 1 to length(a) do        p : = p + strtoint(a[i]);       if (p mod 3 = 0) then writeln('true')        else writeln('false'); end.3)var a, b, c: real; begin      readln(a, b, c);       if ((a = b) and (b = c)) then writeln('true')        else writeln('false'); end.всё проверено, удачи: )