Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите максимальный элемент, кратный 5. Если таких элементов нет, выведите "-1".
Числа вводятся с клавиатуры. Программу выполнить в ПАСКАЛЬ.АВС

Предыдущий
вопрос Следующий
вопрос

Пример кода на Паскаль:

program MaxMultipleOf5;
var
arr: array[1..10] of integer;
i, maxMultipleOf5: integer;
begin
// Ввод массива
writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
readln(arr[i]);
// Поиск максимального элемента, кратного 5
maxMultipleOf5 := -1;
for i := 1 to 10 do
begin
if (arr[i] mod 5 = 0) and (arr[i] > maxMultipleOf5) then
maxMultipleOf5 := arr[i];
end;
// Вывод результата
if maxMultipleOf5 <> -1 then
writeln('Максимальный элемент, кратный 5: ', maxMultipleOf5)
else
writeln('-1');
end.

Пользователю будет предложено ввести 10 целых чисел, затем программа найдет максимальный элемент, кратный 5, и выведет его. Если такого элемента нет, будет выведено "-1".