Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 7. Программа должна вывести одно число — максимальное число, кратное 7. в паскале пожалуйстаp.s. учитель сам создавал задачу

Answer 1

Ответ:

// PascalABC.NET

begin

 var N:integer;

 write('N = ');

 read(N);

 ReadSeqInteger(N).Where(x -> x mod 7 = 0).Max.Print();

end.

Answer 2

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

program MaxMultipleOfSeven;
var
  count, number, maxMultipleOfSeven: integer;
  i: integer;
begin
  // Ввод количества чисел в последовательности
  write('Введите количество чисел в последовательности: ');
  readln(count);

// Инициализация переменной для хранения максимального числа, кратного 7
  maxMultipleOfSeven := -1;

// Цикл для ввода чисел и поиска максимального числа, кратного 7
  for i := 1 to count do
  begin
    write('Введите число ', i, ': ');
    readln(number);
    
    // Проверка на кратность 7 и обновление максимального числа, если необходимо
    if (number mod 7 = 0) and (number > maxMultipleOfSeven) then
      maxMultipleOfSeven := number;
  end;

// Вывод результата
  writeln('Максимальное число, кратное 7: ', maxMultipleOfSeven);
end.

Эта программа запрашивает у пользователя количество чисел в последовательности, а затем саму последовательность чисел. Она ищет наибольшее число, кратное 7, и выводит его в качестве результата.