Объём информации (он же информационная энтропия) зависит от содержания сообщения. А место, которое оно занимает на двоичном информационном носителе, определяем так:
log2(64) = 6 битов на символ.
Далее зависит от устройства памяти. Под один символ обычно отводится целое число байтов (минимальных адресуемых ячеек). Если так (а в вопросе упоминаются байты), то берём байт из 8 битов, тогда это 1 байт на символ, итого 500 байтов или 0,5 килобайта или около 0,49 КБ.
Если биты выстроены непрерывно, тогда считаем длину сообщения в битах: 6 * 500 = 3000 битов. Делим на 8 (байт), итого 375 байтов или 0,375 килобайтов или около 0,37 КБ.
program Arrminmax;
var
A: array of Integer;
N, i, imin, imax, Atmp: Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength(A, N); // устанавливаем размерность массива, введенную с клавиатуры
Randomize;
WriteLn ('Исходный массив:');
for i := Low (A) to High (A) do begin // заполняем массив случайными числами от -10 до 10 и выводим его на экран
A [i] := Random (21) - 10;
Write (A [i], ' ');
end;
imin := Low (A); // начальные значения - первых индекс в массиве
imax := Low (A);
for i := Low (A) to High (A) do begin // находим минимальный и максимальный элементы массива
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
Atmp := A [imax]; // меняем местами минимальный с максимальным
A [imax] := A [imin];
A [imin] := Atmp;
WriteLn;
WriteLn ('Результат обработки:'); // вывод результата
for i := Low (A) to High (A) do begin
Write (A [i], ' ');
end;
ReadLn;
end.
Объяснение: в комментариях к программе
const n=10;
var a,i,max,min:integer;
begin
Randomize;
min:=69; max:=15;
for i:=1 to n do
begin
a:=random(55)+15;
write(a,' ');
if a>max then max:=a;
if a<min then min:=a;
end;
writeln;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.
Пример:
21 16 40 57 41 63 48 50 54 45
max-min = 63-16 = 47
Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(55)+15;
write(a[i],' ');
end;
writeln;
min:=a[1]; max:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.