1) 23+16=39 символов было в сообщении первоначально
2) 23 × 1 байт = 23 байт общий объем первого сообщения без русского алфавита
3) 16 × 2 байта = 32 байт информационный объем сообщения русского алфавита до перекодировки
4) 23+32=55 байт - информационный объем сообщения до перекодировки
5) 39 × 2 байт = 78 байт информационный обем сообщения после перекодировки ( в Unicode 1 символ - 2 байта)
6) 4 Кбит ×1024/8 = 512 байт объем добавленного сообщения
7) 78+512 = 590 байт стал информационный объем сообщения после добавления еще одного сообщения
8) 590 - 55 = 535 байт увеличился итоговый информационный объем
ответ: 535 байт
В объяснении
Объяснение:
Из задания не совсем ясно, необходимо ли в программе производить ввод массиве, если нет, то решение следующее:
# Максимальный элемент массива
_max = max(d)
# Порядковый номер элемента
_index = d.index(_max)
# Вывод
print(_max, _index)
Если запрещено использовать встроенные функции, то:
# первый элемент - максимальный
_max = d[0]
_index = 0
# Цикл по всем элементам
for i, x in enumerate(d):
# Если элемент больше максимального
if x > _max:
_max = x
_index = i
# Вывод
print(_max, _index)
Если необходимо произвести и ввод, то в начале задачи надо дописать:
n = input('Введите n: ')
d = []
for x in range(n):
d.append(input('Введите число: '))
program Project2;
{$APPTYPE CONSOLE}
var a:array of integer; i,n,s:Integer;
begin
Randomize;
s:=0;
Readln(n);//вводим размер массива с клавиатуры
SetLength(a,n); //задаем размер массива
for i:=0 to Length(a) do
a[i]:=Random(100); //геним массив
for i:=0 to Length(a) do
if a[i] mod 5 =0 then //ищем сумму
s:=s+a[i];
Writeln('Summ: ',s); //выводим сумму
readln;
end.