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.