Присваиваем переменной 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.
Пример работы:
В последнее очень популярны устройства, которые идут совместно с видеопроцессором. Не смотря на то, что на видео это отражается не в самую лучшую сторону, идет еще дополнительная нагрузка на данный элемент. Поэтому если вы играете в современные игры, пользуетесь серьезными программами, то не стоит выбирать данную «конструкцию». А если вы ничем таким не занимаетесь, то этот бюджетный вариант отлично вам подойдет.
По нижеприведенным видимым следствиям можно определить, что поломка заключается именно в данном элементе:
Компьютер никак не реагирует на кнопку включения (индикаторы загорелись, но больше ничего не происходит, или включается далеко не с первого раза);Прибор вдруг сам начал перезагружаться (но это работает только при условии, что компьютер проверен на вирусы);Нет никакого изображения;Появление коротких сигналов при включении (устройство не может найти ОЗУ);Появления «синего экрана смерти» (не самый явный признак, но как вариант).
