На измерение информации.

1. найти информационный объем следующей фразы:
информация — сведения независимо от формы их представления.
2. найти информационный объем текста, написанного на языке племени чероки, состоящий из 85 символов. текст набран на одной странице. страница вмещает 238 символов.
3. найти информационный вес символа алфавита состоящего из 56 символов.
​

Program example;

const

A=30;

Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный

var

flag_max : integer;
flag_min : integer;

i. jmin,jmax : integer; //счетчики

Randomize;

array max[A];

//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;

//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max

jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;

//минимальный элемент

for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;

//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;

//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);

Для случайных чисел:

var
   a: array[1..5] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 5 do
      a[i] := random(100);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.

Для ручного заполнения:

var
   a: array[1..5] of integer;
   i: integer;
begin
   for i:=1 to 5 do
      readln(a[i]);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.