Const n=5;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,n];
for i:=2 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do
begin
write(b[i]:4);
s:=s+b[i];
end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do
if b[i]>s/n then write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
10 19 15 17 10
12 12 10 1 5
17 8 8 14 15
12 11 8 0 13
2 2 4 10 6
1. max = 11
2. Массив B
10 1 8 0 2
3. среднее = 4.2
10 8
1012,1112,10002,10102,11002,1000012.
Ответ: Основание системы счисления равно 6
1,5 КБ=1536 байт=12288 бит
12288/3072=4 бита на символ
![2^{3}](https://tex.z-dn.net/?f=+2%5E%7B3%7D+)
=16 символов в алфавите
3 бита
![2^{3}](https://tex.z-dn.net/?f=+2%5E%7B3%7D+)
=8 - на кодировку одного символа требуется 3 байта
3*13=39 бит
60*3*25=4500 символов в сообщении
1125*8=9000 бит занимает сообщение
9000/4500=2 бита на символ
![2^{2}](https://tex.z-dn.net/?f=+2%5E%7B2%7D+)
=4 символа в использованном алфавите
1 картинка: источник - молодой человек, приемник: девушка
2 картинка: источник - учитель, приемник - дети
3 картинка: источник - книги, приемник - читатель
4 картинка: источник - приемник: девушка, та что ниже и второй источник-приемник - девушка, та что выше