Сформировать одномерный массив, каждый элемент которого равен латинской букве - Turbo Pascal

Формулировка задачи:

Дана неквадратная матрица строк. Сформировать одномерный массив, каждый элемент которого равен латинской букве, которая наиболее часто используется при записи элементов соответствующей строки. (помогите написать прогу, где описывается последнее условие)

Код к задаче: «Сформировать одномерный массив, каждый элемент которого равен латинской букве - Turbo Pascal»

textual
const m=3; n=2;
var
  a: array [1..m,1..n] of String[31];
  b: array [1..m] of Char;
  c: array ['A'..'Z'] of Integer;
  i, j, k: Integer;
  d, mx: Char;
begin
  for i:=1 to m do begin
    FillChar(c,SizeOf(c),#0);
    for j:=1 to n do begin
      Write('a[',i,',',j,']: '); ReadLn(a[i,j]);
      for k:=1 to Length(a[i,j]) do
        if a[i,j][k] in ['A'..'Z','a'..'z'] then
          Inc(c[UpCase(a[i,j][k])]);
    end;
    mx:='A'; for d:='B' to 'Z' do if c[mx]<c[d] then mx:=d;
    b[i]:=mx; WriteLn('Строка ',i,': ',b[i]);
  end;
end.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы