Написать программу, заполняющую массив случайными числами в диапазоне 0..1000. Free Pascal

[Praneg]

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

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

[Stilet]

Как пробовал? )

[Praneg]

type
        letter = array [1..26] of real;
var
        a: letter;
        i:integer;
begin
        for i:=1 to 26 do begin
                        readln(a[i]);
        end;
        for i:=1 to 26 do begin
                        writeln(a[i]:0:0);
        end;
        readln;
end.

Таким образом начало, но не уверен, что правильно.

[BDA]

type
  letters = array ['A'..'Z'] of integer;

var
  a: letters;
  i: char;

begin
  for i := 'A' to 'Z' do
    a[i] := random(1001);//0..1000
  for i := 'A' to 'Z' do 
  begin
    writeln(i, ' - ', a[i]);
  end;
  readln;
end.

[Stilet]

Абсолютно неправильно.

заполняющую массив случайными числами

Для этого есть функция random()

Описать массив, подходящий для представления количества каждой буквы латинского алфавита

Этот массив может выглядеть так:

char:array['A'..'z'] of integer;

[Praneg]

Сообщение от BDA

type
  letters = array ['A'..'Z'] of integer;

var
  a: letters;
  i: char;

begin
  for i := 'A' to 'Z' do
    a[i] := random(1001);//0..1000
  for i := 'A' to 'Z' do 
  begin
    writeln(i, ' - ', a[i]);
  end;
  readln;
end.

Он на char - то вот и ругается!

Самое первое, что от меня требуется?!

[Praneg]

Как тут сделать, чтобы он брал не всё по максу а из 3-10, только первую по алфавиту?

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.

[BDA]

type
  letters = array ['A'..'Z'] of integer;

var
  a: letters;
  i, max: char;

begin
  randomize;
  for i := 'A' to 'Z' do
    a[i] := random(1001);//0..1000
  for i := 'A' to 'Z' do 
    writeln(i, ' - ', a[i]);
  max := 'A';
  for i := 'B' to 'Z' do
    if a[i] > a[max] then
      max := i;
  writeln(max, ' - most used letter (', a[max], ')');
  readln;
end.