Добрый день! Можно на естественном языке. (Какой язык дан, надеюсь, особой разницы не имеет, важно иметь ввиду, что оперируем 4 переменными i, k, max, max2)
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит значение второго максимума (элемента, который в отсортированном по невозрастанию массиве стоял бы вторым).
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const
N = 40;
var
a: array [1..N] of integer;
i, k, max, max2: integer;
begin
for i: =1 to N do
readln(a[i]);
...
end.

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

если я правильно понял и функция sin в квадрате и cos в квадрате то

по идее она будет равна 1 в любом случае

var

x,y: real;

begin

x: =-3.14;

while x< =3.14 do 

begin

y: =sin(x)*sin(x)+cos(x)*cos(x);

writeln(x: 8: 2,y: 8: 2);

x: =x+0.2;

end;

end.

вот результат выполнения

-3.14 1.00 -2.94 1.00 -2.74 1.00 -2.54 1.00 -2.34 1.00 -2.14 1.00 -1.94 1.00 -1.74 1.00 -1.54 1.00 -1.34 1.00 -1.14 1.00 -0.94 1.00 -0.74 1.00 -0.54 1.00 -0.34 1.00 -0.14 1.00 0.06 1.00 0.26 1.00 0.46 1.00 0.66 1.00 0.86 1.00 1.06 1.00 1.26 1.00 1.46 1.00 1.66 1.00 1.86 1.00 2.06 1.00 2.26 1.00 2.46 1.00 2.66 1.00 2.86 1.00 3.06 1.00

если брать 2x тогда

var

x,y: real;

begin

x: =-3.14;

while x< =3.14 do 

begin

y: =sin(2*x)+cos(2*x);

writeln(x: 8: 2,y: 8: 2);

x: =x+0.2;

end;

end.

и результат

-3.14 1.00 -2.94 1.31 -2.74 1.41 -2.54 1.29 -2.34 0.97 -2.14 0.49 -1.94 -0.07 -1.74 -0.61 -1.54 -1.06 -1.34 -1.34 -1.14 -1.41 -0.94 -1.26 -0.74 -0.91 -0.54 -0.41 -0.34 0.15 -0.14 0.68 0.06 1.11 0.26 1.36 0.46 1.40 0.66 1.22 0.86 0.84 1.06 0.33 1.26 -0.23 1.46 -0.76 1.66 -1.16 1.86 -1.38 2.06 -1.39 2.26 -1.17 2.46 -0.77 2.66 -0.25 2.86 0.31 3.06 0.82

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.