В массиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся ** 5 БУДУ...

Question

В массиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся на 5 БУДУ СЕДЕЧНО БЛАГОДАРНА!

Answer 1

Const
   n = 5;
type
   mas = array[1..n] of integer
var 
   max : integer;
begin 
   max := 0;
   for i:=1 to n do 
      if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];

   writeln(max);
end.