КАК СДЕЛАТЬ НА ПАСКАЛЕ?
Дайте развернутый ответ.
Напишите программу, которая в последовательности натуральных десятичных чисел определяет наибольший элемент, запись которого
в системе счисления с основанием 7 оканчивается нечётной цифрой. Если среди входных данных таких элементов нет, программа должна вывести «NO».
Программа получает на вход в первой строке натуральное число – количество чисел N (3 ≤ N ≤ 10 000), затем N натуральных чисел,
не превышающих 30 000, каждое в отдельной строке.
Программа должна вывести одно десятичное число – наибольший элемент последовательности, запись которого в 7-ричной системе счисления оканчивается нечётной цифрой, или «NO», если среди входных данных таких элементов нет.
Пример работы программы
Входные данные
Выходные данные
6
12
15
10
71
50
11
71
program a;var n,i,x,m:integer;
begin
readln(n);m:=0;
for i:=1 to n do
begin
readln(x);
if x mod 7 in[1,3,5]and x>m then m:=x;
end;
if m=0 then writeln('NO')else writeln(m);
end.