Добрый день! Можно на естественном языке. (Какой язык дан, надеюсь, особой разницы не имеет, важно иметь ввиду, что оперируем 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.

PascalABC.NET 3.3, эти строчки надо вставить между begin и end.

1. 20.To(35).Print(Chr(10));
2. 10.To(ReadInteger).Select(x -> x*x).Print(Chr(10));
3. ReadInteger.To(50).Select(x -> x*x*x).Print(Chr(10));
4. ReadInteger.To(ReadInteger).Print(Chr(10));

a.to(b) возвращает последовательность чисел от a до b, Select позволяет получить новую последовательность из старой (например, x -> x*x из x делает x в квадрате, то есть это функция, возводящая число в квадрат), Print(delim) выводит элементы последовательности с разделителем delim, chr(10) - символ перевода строки.

VB.
Dim CountA As Integer
Dim CountB As Integer       
Dim x As Integer       
Dim a As Integer       
Dim b As Integer       
a = InputBox("Введите а")       
b = InputBox("Введите b")
        For x = 1 To Len(CStr(a))
            If CInt(Mid(CStr(a), x, 1)) Mod 2 = 0 Then CountA += 1
        Next
        For x = 1 To Len(CStr(b))
            If CInt(Mid(CStr(b), x, 1)) Mod 2 = 0 Then CountB += 1
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
        Next
        If CountA = CountB Then MsgBox("Количество четных цифр в двух числах равно")
        If CountA > CountB Then MsgBox("В первом числе количество четных цифр больше") Else MsgBox("Во втором числе количество четных цифр больше")