Присваиваем переменной 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.
Пример работы:Поделитесь своими знаниями, ответьте на вопрос:
На одной улице стоят в ряд 4 дома, вна одной улице стоят в ряд 4 дома, в которых живут 4 человека: алексей, егор, виктор и михаил.известно, что каждый из нихвладеет ровно одной из следующих профессий: токарь, столяр, хирург и окулист, но известно, кто какой и неизвестно, кто в каком доме живет. 1)токарь живет левее столяра 2)хирруг живетправее окулиста 3)окулист живет рядом со столяром 4)токарь живет не рядом со столяром 5)виктор живет правее окулиста 6)михаил не токарь 7)егор живет рядом со столяром 8)виктор живет левее егора выясните кто какой профессии и кто гнде живет и дайте ответ в виде заглавных букв имени людей, а в порядке слева на право