Напишите на паскале. Задание: Найти максимальный из элементов массива A[1 ... N],

кратных пяти.

Const

n = 5;

var

arr: array [1 ... n] of integer;

i, max: integer;

begin

for i : = 1 to n do

begin

write ('A[', i, '] = ') ;

readln (arr[i]) ;

end;

max : = 1;

for i : = 1 to n do

if (max < arr[i]) and (arr[i] mod 5 = 0) then

max : = arr[i];

if max = 1 then

writeln ('No')

else

writeln (max) ;

end.