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

Question

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

Answer 1

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.

Comments

Cпасибо