Сформировать одномерный массив, каждый элемент которого равен латинской букве - 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
Похожие ответы