ответ:max := -1001;for j := 1 to N doif (abs(a[j]) mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];if max=-1001 then write('Не найдено') else write(max);Объяснение:max := -1001;
Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).
for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];
Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.
if max=-1001 then write('Не найдено') else write(max);
Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.
3,7,9 37,93,79 973,979,373 Вообще говоря это зависит от формулировки "используя цифры". Из задания непонятно, использовать нужно ВСЕ цифры, или достаточно использования любых из них. Если под словом "используя" понимать, что можно использовать только эти цифры, но при этом использовать все не обязательно, то можно записать 77 и 999. Всего трёхзначных чисел из цифр 3,7,9 можно записать 3*3*3 (по три возможных цифры на каждую позицию - если цифры на позициях могут повторяться. и 3*3*1, если не могут повторяться.
Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).
for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.
if max=-1001 then write('Не найдено') else write(max);Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.
Пример работы: