Дан целочисленный массив из 40 элементов. элементы массива могут принимать целые значения от 0 до 10000 включительно. опишите алгоритм, позволяющий найти и вывести максимальное значение среди двузначных элементов массива, не делящихся на 3. если в исходном массиве нет элемента, значение которого является двузначным числом и при этом не кратно трём, то выведите сообщение «не найдено». запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const n = 40; var a: array [1..n] of integer; i, j, max: integer; begin for i : = 1 to n do readln(a[i]); end