FreePascal.ru

Текст уловия в первом посте. Хорошо. приведу его еще раз:
"Вводятся длина вектора, состоящего из целых чисел, и его элементы. С этим вектором произвести указанное действие и вывести результаты. Если используется "заданное число", то оно тоже вводится.
Действие : найти максимум среди чисел, в ...

Уточнил задачу. Имелся ввиду алгебраический максимум. Значит если нет положительных чисел на 8, берется наибольшее с минусом, -8 в данном случае, если я все правильно понимаю. А если вообще нет чисел на 8, то можно вывести на экран вместо "max= 0" - "нет чисел на 8".
Сегодня буду пробовать править ...

Если использовать это выражение, ответ будет все равно 0, при таком раскладе:

massiv n=5
-88 -8 -18 0 2
max= 0

Есть ещё одна ошибка в этой программе. В условии не сказано, что числа будут положительные.
Значит возможен такой массив:
-8 -88 -888
Эта программа выдаст 0, которого не было вообще.
...
Тут уже дело не только в программе, а в условии задачи.

Наверно, вы правы. Я почему-то исключил такой ...

Спасибо, очень помогли, особая благодирность Oleg_D!
Вот чувствовал ведь - истина, где-то рядом!

В таком виде работает как надо:


{найти максимум среди чисел, в десятичной системе счисления оканчивающихся на 8}
uses crt;
var
i,n,max:integer;
a:array[1..30]of integer ...

Ребят, помогите поправить программу. Бьюсь 3-й день. Задача пустячная, но никак не могу дотумкать.

Задание.
Дан массив, найти максимум среди чисел, в десятичной системе счисления оканчивающихся на 8.


{найти максимум среди чисел, в десятичной системе счисления оканчивающихся на 8}
uses crt;
var ...