Всё просто
Алгоритм:
for j := 1
to N do
if (8 <=
a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1</p>
for j := 1 to N - перебор всех элементов массива
(8 <= a[j]) and (a[j] <= 63) - восьмеричная
запись чисел от 8₁₀ до 63₁₀ содержит ровно две цифры </p>
(a[j] div 8 < a[j] mod 8) - первая (старшая) цифра
меньше второй (младшей) при восьмеричная запись чисел от 8₁₀ до 63₁₀
k:=k + 1 - счётчик количества элементов массива
соответствующих условиям
Программа целиком:
const N=40;
var a:
array [1..N] of integer;
i, j, k:
longint;
begin
for i:=1 to
N do
readln(a[i]);
for j := 1
to N do
if (8 <=
a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1;</p>
writeln('Количество элементов массива, восьмеричная запись
которого содержит ровно две цифры, причем первая (старшая) цифра меньше второй
(младшей), равно: ',k);
end.