Напишите на паскале. Задание: Найти максимальный из элементов массива 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.