Question

Pascal: с клавиатуры вводятся n целых чисел в диапозоне [-100.. 100] найти максимальное число кратное 5 из введенных

Answer 1

Сначала спрашивайте у пользователя число n, потом заполняйте массив (с проверкой на [-100..100]), потом в цикле проверяйте каждый элемент массива на кратность 5. Параллельно с проверкой на кратность (в том же цикле) кидайте первое кратное число в переменную max, и сравнивайте с это переменной другие числа, кратные 5. Если больше - перезаписываете значение max

Цикл: (counter - счетчик, n - колво чисел в массиве)

max := 0;
for counter = 1 To n Do
if (Massive[counter] mod 5) = 0 then
        if Massive[counter] > max then max := Massive[counter];

В конце выводите max