Присваиваем переменной 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
Объяснение:
На простом примере:
x = 5; y = 10
Если 5 > 10, то максимум = 5, иначе максимум = 10
5 больше 10? Нет, следовательно максимальное значение 10. Совпало.
x = 10; y = 5
Если 10 > 5, то максимум = 10, иначе максимум = 5
10 больше 5? Да, следовательно максимальное значение 10. Совпало.
Если разбирать 1 пример:
x = 5; y = 10
Если 5 > 10, то максимум = 5, иначе максимум = 5
5 больше 10? Нет, а максимум у нас 5... Не совпало.
Если разбирать 2 пример:
x = 10; y = 5
Если 10 > 5, то максимум = 5, иначе максимум = 10
10 больше 5? Да, а максимум у нас 5... Не совпало.