Question

напишите программу,которая в последовательности натуральных чисел определяет максимальное число,кратное 5

Answer 1

Ответ:

var a: array[1..10] of integer;

   n,max:integer;

begin

 max:=0;

 readln(n);

 for var i:= 1 to n do

   begin

   readln(a[i]);

   if (a[i] mod 5=0) and (a[i] > max) then

     max := a[i];

   end;

   writeln(max);

end.

Объяснение: