Дан массив A(30), заполненный случайным образом в диапозоне [0,4].
Найти:
1) Второй по значению максимальный элемент и его номер.
2)Сдвигать массив вправо до тех пор, пока на первом месте не окажется ноль.

Объём информации (он же информационная энтропия) зависит от содержания сообщения. А место, которое оно занимает на двоичном информационном носителе, определяем так:

log2(64) = 6 битов на символ.

Далее зависит от устройства памяти. Под один символ обычно отводится целое число байтов (минимальных адресуемых ячеек). Если так (а в вопросе упоминаются байты), то берём байт из 8 битов, тогда это 1 байт на символ, итого 500 байтов или 0,5 килобайта или около 0,49 КБ.

Если биты выстроены непрерывно, тогда считаем длину сообщения в битах: 6 * 500 = 3000 битов. Делим на 8 (байт), итого 375 байтов или 0,375 килобайтов или около 0,37 КБ.

program numsum;

uses

 SysUtils;

var

 n, i, sn: Integer;

 s: string;

begin

 Write ('Введите четырехзначное число: ');

 ReadLn (n);

 n := Abs (n);

 if (n > 9999) or (n < 1000) then begin

   WriteLn ('Введенное число не четырехзначное');

   ReadLn;

   Exit;

 end;

 s := IntToStr (n);

 sn := 0;

 for i := 1 to Length (s) do

   sn := sn + StrToInt (s [i]);

 WriteLn ('Сумма цифр числа = ', sn);

 if sn mod 5 = 0 then

   WriteLn ('Сумма цифр делится на 5')

 else

   WriteLn ('Сумма цифр не делится на 5');

 ReadLn;

end.