procedure MasToStr(var a: mas; var res: string);//формирование результирующей строки по массиву
var
min: integer;
k: string; c: char;
begin
res := '';
min := 256;
for c := 'A' to 'Z' do
if (a[c] > 0) and (a[c] < min) then begin //если буква встретилась
min := a[c];
k := c;
end;
if (min < 256) then
res := ('Буква ' + k + ' встретилась ' + min + ' раз.')
end;
Простой
Простой
Средний
