max:=-1000;
for i:=1 to 100 do
if (a[i] mod 5=0)and(a[i]>max) then max:=a[i];
Похожие записи/страницы:
- Написать программу подсчета количества чисел кратных 7 на отрезке от 40 до 120. Результат вывести на экран -…
- Найти минимальное и максимальное из данных чисел Pascal(Паскаль)
- Банкомат выдает деньги купюрами в 5000 1000 5000 100 50 и 10 рублей по следующему принципу: сначала выдается…
- Даны N натуральных чисел.Найти максимальное значение только из нечетных и его номер -Pascal(Паскаль)
- Сколько существует пар чисел Х и У от 1 до 1000, для которых Х(в квадрате) + У(в квадрате) делится на 49? -…
- Составить программу выводящую на экран квадратные корни десяти первых чисел кратных введённому с точностью до…
- Дан массив целых чисел. Найти сумму и кол-во всех элементов, кратных 3 и 5, определить есть ли в двумерном…
- Нахождение максимума из вещественных чисел - Pascal(Паскаль)