Включить в программу функцию, определяющую самую часто встречающуюся букву. Если таких букв несколько, взять первую по алфавиту

@Prjanik · Регистрация: 07.11.2012

Студворк — интернет-сервис помощи студентам

Написал программу, заполняющую массив случайными числами в диапазоне 0..1000 и распечатывающую таблицу в формате 'буква' - 'число'.
Требуется включить в программу функцию, определяющую самую часто встречающуюся букву. Если таких букв несколько, взять первую по алфавиту.

Pascal

type
        letters = array ['A'..'Z'] of integer;
var
        a:letters;
        i:char;
begin
        for i:= 'A' to 'Z' do
                a[i]:=random(1001);
        for i:= 'A' to 'Z' do begin
                        writeln(i,'-',a[i]);
        end;
 
        readln;
 
end.

Добавлено через 20 минут

Pascal

type
        letters = array ['A'..'Z'] of integer;
var
        a:letters;
        i:char;
        max:real;
begin
        for i:= 'A' to 'Z' do
                a[i]:=random(1001);
        for i:= 'A' to 'Z' do begin
                        writeln(i,'-',a[i]);
        end;
        for i:= 'A' to 'Z' do
                        max:=a[i];
        for i:= 'A' to 'Z' do begin
                        if a[i]>max then max:= a[i];
                        writeln(i,'-',max:0:0);
        end;
 
        readln;
 
end.

@orange_rush · 17.11.2012, 00:47

т.е. найти самое большое число массива из 26 целых чисел?

@Prjanik · 17.11.2012, 00:56 **[ТС]**

Я уже сделал

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	17.11.2012, 00:47	2
	т.е. найти самое большое число массива из 26 целых чисел? 0

@Prjanik 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 36
	17.11.2012, 00:56 [ТС]	3
	Я уже сделал 0

Опции темы