Question

Дан целочисленный массив из 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

Answer 1

const
N = 40;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i := 1 to N do
 begin a[i]:=random(200); write(a[i],' ');end;
//readln(a[i]);
writeln;
max:=0;
for i := 1 to N do
 if (a[i]>9)and(a[i]<100)and(a[i] mod 3<>0)and(a[i]>max)
  then max:=a[i];
if max>0 then writeln('max = ',max)
else writeln('Не найдено');
end.

Пример:
32 42 155 33 159 73 194 51 173 175 176 154 70 67 194 159 63 33 81 183 54 166 75 196 150 165 61 162 54 196 182 195 124 133 76 191 197 69 125 118 
max = 76