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