const N = 100;
const MAX = 50;
const MIN = -50;
var A: array [1..N] of integer;
var i,j,s,tmp: integer;
begin
randomize();
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
write(A[i],' ');
end;
writeln();
for i:=1 to N do
for j:=i to N do
begin
if (A[j]<A[i]) then
begin
tmp:=A[i];
A[i]:=A[j];
A[j]:=tmp;
end;
end;
writeln('Отсортированный массив: ');
for i:=1 to N do write(A[i],' ');
writeln();
writeln('Сумма трех самых больших чисел: ',A[100]+A[99]+A[98]);
writeln('Попарные суммы самых больших и самых маленьких: ');
for i:=1 to N do write(A[i]+A[N-i+1],' ');
end.
На PascalABC.NET можно так:
var k: array of string;
procedure CreatOrAdd(add: boolean);
begin
var i,n: integer;
write('введите кол-во учеников: ');
readln(n);
if (add) then
begin
setlength(k,k.Length+n);
for i:= 0 to n-1 do
begin
write('введите ФИО:');
readln(k[k.Length-n+i]);
end;
end
else
begin
setlength(k,n);
for i:= 0 to n-1 do
begin
write('введите ФИО:');
readln(k[i]);
end;
end;
end;
procedure out;
begin
try
writeln('Список класса:');
for var i:= 0 to k.Length-1 do writeln(k[i]);
except
on e: System.Exception do writeln(e.Message);
end;
end;
procedure menu;
begin
writeln('1, Создание списка класса');
writeln('2, Добавление');
writeln('3, Удаление');
writeln('4, Вывод списка класса');
writeln('5, EXIT');
end;
procedure delet;
begin
var n: integer;
write('введите номер удаляемого ученика: ');
readln(n);
try
if (n<=k.Length) then
k := k.Where(t -> t<>k[n-1]).ToArray()
else writeln('Ошибка');
except
on e: System.Exception do writeln(e.Message);
end;
end;
var
kom: byte;
begin
repeat
menu;
readln(kom);
case kom of
1: creatoradd(false);
2: creatoradd(true);
3: delet;
4: out;
5: exit;
end;
until kom = 5;
end.
Если будут вопросы, спрашивайте.
6 бит информации
Объяснение:
12 * 4 = 48 - количество полок, где может находиться обувь. Соответственно, надо закодировать 48 символов.
Чтобы закодировать 2 символа, нужно 01 10 - 2 кодовых слова (2^1)
Чтобы закодировать 4 символа, нужно 00 11 10 01 - 4 кодовых слов 2^2
Чтобы закодировать 8 символов, нужно 000 001 010 100 111 110 101 011 - 8 кодовых слов (2^3)
Чтобы закодировать 32 символов, нужно - 2^5 кодовых слов
2^5 = 32, а нам не хватает до 48, значит берём следующее число:
2^6 кодовых слов (64 нам хватает).
Значит, ответ 6 бит (так как N = 2^i; 2^6 = 2^i; i = 6).