Сначала спрашивайте у пользователя число 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];
var m: array[1..n] of integer; i, mn, mx: integer;
begin Write('Введите через пробел три целых числа: '); i := 1; repeat Read(m[i]); i := i + 1 until i > n; mn := m[1]; mx := mn; i := 2; repeat if mx < m[i] then mx := m[i] else if mn > m[i] then mn := m[i]; i := i + 1 until i > n; Writeln('Разность наибольшего с наименьшим равна ', mx - mn) end.
Тестовое решение:
Введите через пробел три целых числа: 7 9 3 Разность наибольшего с наименьшим равна 6
Цикл: (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