Ответ:
1110011010
Объяснение:
Решается деление на 2. Остаток и является ответом.
1 объект который управляет
2объект га который направлено упоавляющее действие
3 результат
объект управления
Var
i, k,n, max: integer;
f:boolean;
begin
readln(k);
for i := 1 to k do
begin
readln(n);
if (i = 1) or (max < n) then
max := n;
f:=f or (n=0);
end;
writeln(max,' ', f);
end.