Question

30 баллов Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. Паскаль.​

Answer 1

var

n:word;

a,max,i:integer;

begin

repeat

write ('N = ');readln(n);

until (n>0) and (n<=1000);

write ('A = ');readln(a);

if a mod 5 = 0 then max:=a; 

while i<>n-1 do begin

write ('A = ');readln(a);

if (a>max) and (a mod 5 = 0) then max:=a; 

i:=i+1;

end;

writeln ('Max: ',max);

readln;

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет задачу:

pascalCopy code
program MaxMultipleOf5;

var
  n, i, number, maxMultiple: integer;

begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);

  writeln('Введите числа:');
  maxMultiple := -1;  // Инициализируем переменную максимального числа, кратного 5

  for i := 1 to n do
  begin
    readln(number);
    
    // Проверяем, является ли число кратным 5 и больше текущего максимального
    if (number mod 5 = 0) and (number > maxMultiple) then
      maxMultiple := number;
  end;

  if maxMultiple = -1 then
    writeln('В последовательности нет чисел, кратных 5.')
  else
    writeln('Максимальное число, кратное 5: ', maxMultiple);
end.

Программа сначала запрашивает количество чисел в последовательности, затем вводит сами числа. В ходе цикла проверяется каждое число: если оно кратно 5 и больше текущего максимального числа (или если текущий максимум еще не установлен), то оно становится новым максимальным числом, кратным 5. По окончании цикла программа выводит результат.