Question

paskal помогите , скоро экзамены , но как сделать ... я хз

Answer 1

program z;
var x,max,n,i:integer;
begin
readln(n);   {запросить количество чисел}
max:=0;      {начальное значение максимума}
for i:=1 to n do
begin
 readln(x);    {считать очередное число}
 if (x mod 16=0) and (x>max)
     then max:=x; {если число кратно 16 и больше предыдущего} 
                           {значения max, то считать его максимумом}
end;
writeln(max);
end.

Answer 2

кем бы ты ни был ты гений , большое спасибо!